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Spielprogramme 


Eingeben und Starten! 


Lieber Leser! 


An dieser Stelle ein Wort zur recht kurzfristigen Entscheidung, 
HOMECOMPUTER vorübergehend jeden 2. Monat erscheinen 
zu lassen. 


Unsere Redaktion ist der Meinung, daß Sie als HOMECOMPU- 
TER-Leser das Recht auf eine Zeitschrift haben, die Ihren 
Wünschen und Bedürfnissen entspricht. Diese Zielsetzung be- 
darf jedoch einiger Veränderungen. 


So werden in Zukunft 


— fehlerhafte oder unleserliche Listings entfallen und für 
jedes nachgewiesene fehlerhafte Listing wird eine Beloh- 
nung von 5 x DM 100,- ausgelost, 


- nur die besten bei uns eingegangenen Programme veröf- 
fentlicht, 


- die populärsten Heimcomputer-Systeme regelmäßig in 
Form von Spiel- und Anwendungsprogrammen behan- 
delt, 


— Neuerscheinungen aus der Computer-Szene mit der ent- 
sprechenden Software berücksichtigt, ; 


— alle eingehenden Programme an unserem großen ausge- 
schriebenen Autorenwettbewerb ’85 teilnehmen, 


— aktuelle Infos und vieles mehr an Sie weitergegeben. 
Wir hoffen, Sie freuen sich über diese Maßnahmen und sind uns 
auch weiterhin (trotz kleiner Preiserhöhung) ein treuer und 


zufriedener Leser. 


Die Redaktion 


» 
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Infos 
Informationen zum Acorn-Homecomputer 6 
Autorenwettbewerb 38 26 
Review: Duell 3] 
Hochleistungs-Typenraddrucker 22 Schneider CPC-464 
Star-Thermodrucker stx-80 7 l Fallschirmspringer 40 
Leserbrief-Kasten 7 ZX-81 
Homecomputer-Bibliothek Sa 5 
z ec en ZX-Spectrum 

eues vo ücherma Na Snlbe 45 
Tips & Tricks Millie, die Milbe 48 
Ausgabe eines Textes durch Farbwechsel für TI/99 l % Apple II 
„PRINT AT“ Anweisung für Commodore 64 74  Knobeln 50 
Club-Ecke 78 Nr Attack 54 

Atari 

Software Magic Fire 5 5 
VC-20 Castle of Confusion 59 
Mister Jump 8 Dragon 
Catch the Fish l l Senso 68 
T1-9 Kleinanzeigen 37 
Coal-Miner l 9 
Meteor 18 Software-Service 76 
Infra 22 Kassetten- und Disketten-Versand 


Top-Programm des Monats 


Fallschirmspringer Alien-Destroyer Millie, die Milbe 


Schneider CPC 464 Commodore 64 ZX-Spectrum 
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Homecomputer- Bücherkiste 


BBC Mikrocomputer Anwenderhandbuch 


In diesem Anwenderhandbuch wurde 
den einzelnen Programmiertechniken 
besonders viel Aufmerksamkeit gewid- 
met. Als Programmiersprache wurde 
BASIC in der BBC-Version verwandt, 
die in diesem Fall viele „Extras“ bietet. 
Das Buch beschreibt die Funktionen 
und Befehle die benötigt werden, gibt 
Auskünfte über die Datenspeicherung 
und die Grafik, die auf dem BBC Mi- 
krocomputer möglich ist. Weiterhin 
werden die Farbgebung und die Erzeu- 
gung von Bewegungseffekten genau er- 
läutert. 

Zusätzliche praktische Tips geben wei- 
tere Anleitungen zur optimalen Nut- 
zung. 


Wichert van Engelen 


APPLE GRAPHICS 


Richard G. Peddicord 


Dieser Band wendet sich an den Anfän- 
ger, der auf dem Apple II Grundkennt- 
nisse der Computergraphik erlernen 
will. Erläutert werden elementare Kon- 
zepte, die Sie zum Aufbau von Gra- 
phikprogrammen in Applesoft-BASIC 
benötigen. Der Apple II stellt schwach- 
und hochauflösende Graphiksysteme 
zur Verfügung und erlaubt es dem Be- 
nutzer, erzeugte Formen zu vergrößern 
oder zu verkleinern, also zu skalieren 
und sie um eine Achse zu drehen. 

Obgleich sowohl Ihr Apple II als auch 
die Programmiersprache BASIC sich 
durch ausgesprochene Benutzerfreund- 


‚lichkeit auszeichnen, müssen Sie, um 


Die Hard- und Software wird ausführ- 
lich beschrieben und gleichzeitig darauf 
hingewiesen, wie mit einer einfachen 
Vorrichtung am Computer auch eine 
höhere Programmiersprache ange- 
wandt werden kann. 


MecGraw-Hill Book Company GmbH 
Hamburg, Best.-Nr.: ISBN 3-89028- 
023-4. 


Preis: ca. 45,- DM Originalausgabe. 


erfolgreich graphische Designs erzeu- 
gen zu können, mit einigen Grundre- 
geln der analytischen Geometrie sich 
auseinandersetzen und vor allem die 
hier vorgeschlagenen Programme auch 
tatsächlich auf einem Rechner durch- 
spielen. Die hier angebotene Informa- 
tion wird es Ihnen erleichtern, den Ein- 
stieg auch in anspruchsvolle Graphik- 
programme, wie sie für den Apple Il in 
großer Auswahl auf dem Markt ange- 
boten werden, zu finden. 


Computer Compact, Goldmann Verlag 
München, Best.-Nr.: 13 121. 
Preis: 9,80 DM Originalausgabe. 
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HEIMCOMPUTER REPORT ’85 


Gilbert Obermair 


Der Heim- oder Hobby-Computer ist 
besonders vielseitig. Man kann damit 
nicht nur spielen, sondern auch lernen 
oder kleine Anwendungen im häusli- 
chen Bereich realisieren. In spieleri- 
scher Weise kann man sich so Wissen 
über Elektronik und Logik aneignen, 
das in Zukunft im Berufsleben immer 
wichtiger werden wird. 

Der Laie, der sich einen Freizeit-Com- 
puter kaufen möchte, sieht sich aller- 
dings vielen Fragen gegenüber, da das 
Angebot riesengroß ist. Die wichtigsten 
Antworten gibt dieses Buch: eine 
Marktübersicht mit einem Überblick 


über das Angebot an „Hardware“ und 
„Software“, genaue Beschreibungen, 
Preisangaben und exakte technische 
Daten. Das Ganze ist noch mit zahlrei- 
chen Fotos angereichert. Sie finden hier 
ein „Heimcomputer-Abc*, das dem 
Laien die Fachausdrücke erklärt und 
die Anschriften von Vertriebsfirmen 
enthält. Äußerst nützlich sind auch die 
Kontaktadressen der einzelnen Com- 
puter-Clubs und die Hinweise auf 
Fachzeitschriften. 


Heyne-Taschenbuch Nr. 08/498 1, Preis 
6,80 DM 


Programmiersprache Basic 


Schritt für Schritt 
Dr. Hans-Joachim Sacht 


BASIC ist ohne Zweifel nicht nur die 
am weitesten verbreitete, sondern auch 
die am leichtesten erlernbare Sprache 
für die Programmierung von Compu- 
tern. Diese Sprache wird in diesem 
Buch auch für Schüler und Laien ver- 
ständlich erklärt. Auch wer bereits das 
Handbuch eines Computers besitzt, 
wird hier noch viele ergänzende Hin- 
weise für die eigene Programmierarbeit 
finden. 

Dieses Buch unterscheidet sich von an- 
deren dadurch, daß man bei anderen 


Büchern voraussetzt, daß der Leser ei- 
nen Computer vor sich hat, um durch 
Probieren zu lernen. Hier werden auch 
die Kleinigkeiten, die man beachten 
muß, systematisch und vollständig in 
der richtigen Reihenfolge erklärt. Die 
Programmierbeispiele selbst sind so 
ausgewählt, daß sie in eigene nützliche 
Programme eingebaut werden können. 


Humboldt-Taschenbücher, Best.-Nr. 
ISBN 3-58 1-66456-9, Preis 7,80 DM 
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ELECTRON 


Informationen zum neuen 
Homecomputer von Acorn 


ner EEE 


In unseren letzten Ausgaben 
haben wir den neuen Home- 
computer von Acorn Compu- 
ters in einem kurzen Bericht 
vorgestellt. Hier noch einige 
Infos über die Ausbaumög- 
lichkeiten und die Software- 
angebote. 


Ausbaumösglichkeiten 


Der Acorn Electron wächst 
mit den Wünschen seiner Be- 
nutzer. Die kleine Grafik zeigt 
Ihnen die möglichen Ausbau- 
stufen unter dem Namen 
„PLus- 1% Es sind jedoch 
noch weitere Ausbaustufen 
geplant, z. B. ein Disketten- 
laufwerk. Hier ist der Electron 
noch nicht an seine Grenzen 
gestoßen. 
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Starthilfen 
und Dokumentation 


Zum Lieferprogramm des Electron ge- 
hört eine kostenlose Einführungskas- 
sette mit 15 nützlichen und unterhalt- 
samen Programmen. So werden Sie auf 
die spielerische Art mit dem Electron 
vertraut gemacht. Für die Profis gibt es 
das ergänzende Buch „Programmieren 
mit dem Electron“. Hier lernen Sie 
Schritt für Schritt eine Menge Tricks 
und Kniffe. 


Software 


Über die angebotene Software sei an 
dieser Stelle nur kurz der Hinweis gege- 
ben, daß Electron einen großen Softwa- 
re-Katalog zusammengestellt hat. In 
ihm finden Sie unter anderem SPIELE: 
z. B. „Snapper, Starchip, Command, 
Hopper, Monster“ u. v. m. 
FORTBILDUNG: z. B. „Baum der 
Weisheit“, ein Programm, das im Dialog 
zwischen Benutzer und Computer ar- 
beitet. Oder „PEEKO Computer“ - ein 
Lernspiel, das Kinder in die Arbeits- 
weise eines Computers einführt usw: 
COMPUTERSPRACHEN: z. B. 
„LISP“, eine der ältesten und vielsei- 
tigsten Computersprachen aufder Basis 
künstlicher Intelligenz. 

Man kann sagen, daß es der Firma 
Acorn Computers gelungen ist, die heu- 
tigen technischen Möglichkeiten zu 
verwirklichen und ein Produkt auf den 
Computermarkt gebracht zu haben, das 
allen Anforderungen seiner Benutzer 
standhalten kann. 
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Zur Nachahmung nicht zu empfehlen! 


Der Grund meiner Zuschrift ist ein Bei- 
trag in Homecomputer Nr. 2 Seite 5 
über das Computercamp Schloß Dan- 
kern. Als ich das Bild des Commodore- 
Computers mit Floppy und Monitor 
am Rande eines Schwimmbeckens sah, 
hat es mir vor dieser Abbildung ge- 
graust. Lächelnde Teens, z. T. im Was- 
ser stehend, schauen einem Hacker zu, 
der das Keyboard bedient. Wie idyl- 
lisch doch das Ganze wäre, wenn da- 
hinter nicht der Tod lauerte! Netzbe- 
triebene Geräte dürfen niemals in der 
Nähe von Wasser aufgebaut werden, 
vor allem keinen Hochspannung füh- 
renden Monitor - es sei denn, man hat 
ernste Selbstmordabsichten. Auch das 
Argument, die Geräte wären nicht an- 
geschlossen, darf man hier nicht gelten 
lassen. Nehmen Sie die Verantwortung 
aufsich, wenn solche Beispiele aus Un- 
wissenheit nachgeahmt werden? 
Vielleicht rettet dieser Hinweis einigen 
hoffnungsvollen Nachwuchs-Informa- 
tikern das Leben. 


Dieter Thomsen, Köln 
Antwort: Die Redaktion freut sich über 
diesen aufmerksamen Leser unserer 
Zeitschrift und schließt sich in vollem 
Umfang seiner Meinung an. Wir weisen 
hier ebenfalls ausdrücklich darauf hin, 
daß stromführende Geräte nicht in Ver- 
bindung mit Feuchtigkeit betrieben wer- 
den dürfen. Dabei besteht absolute Le- 
bensgefahr! 


Honorarabrechnung 


Nachdem eines meiner Programme in 
Ihrer Zeitschrift veröffentlich wurde, 
möchte ich hiermit anfragen, wann das 
Autorenhonorar ausgezahlt wird? Kann 
ich in den nächsten Tagen mit einem 
Scheck rechnen, oder muß ich bis zum 
Eintreffen des Honorars die früher bei 
der Zeitschrift üblichen drei Monate 
warten? 

Carsten v.d. Lippe, Bünde 


Antwort: Der Tronic-Verlag gibt jedem 
Software-Autor das Versprechen, nach 
Veröffentlichung seines Programms die 
Honorare sofort abzurechnen. Ein 
mehrmonatiger Aufschub der Abrech- 
nung wird von unserem Haus strikt ab- 
gelehnt. Wir sind an einer guten Zu- 
sammenarbeit mit Ihnen interessiert. 
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Kassettenservice im Homecomputer 
Sehr geehrte Damen und Herren! 


Am 6. Dezember 1984 habe ich per 
Bankanweisung die Kassette Best.-Nr.: 
HC 11/84 für ZX 81 bestellt. Leider 
habe ich sie bis heute nicht erhalten. 
Gleichzeitig habe ich Sie gebeten, mir 
eine Kopie des Spieles „ASTRO 
JÄGER“ zuzusenden. 

Jürgen Pieckert, Ennepetal 


Antwort: Die Redaktion des Tronic- 
Verlages stellt an dieser Stelle noch ein- 
mal eindeutig klar, daß wir lediglich die 
Titelrechte für die Zeitschrift Home- 
computer übernommen haben. Der 
Kassettenservice, Autorenhonorare, 
noch ausstehende Programme und der- 
gleichen kann von uns aus nicht ge- 
klärt werden. Bitte haben Sie dafür Ver- 
ständnis. 


Teure Wiederholungen 
Liebe Redaktion, 


als ich die Ausgabe | der Homecompu- 
ter gekauft hatte, mußte ich feststellen, 
daß der Beitrag TIPS & TRICKS auf 
Seite 53 bereits in der Ausgabe 9/84 der 
Computronic veröffentlicht wurde. Das 
Listing auf S. 58 ist ebenfalls eine Wie- 
derholung aus der Computronic-Aus- 
gabe 8/84. Vom Fernsehen bin ich Wie- 
derholungen gewohnt, schade, daß Ihr 
jetzt auch damit anfangt. Trotz allem 
wünsche ich Euch alles Gute für Euer 
neues Konzept! 

Bernd Sieling, Bremen 


Antwort: Wir freuen uns, hier einen auf- 
merksamen Leser beider Zeitschriften 
gefunden zu haben. Es ist richtig, daß 
die Rubrik TIPS & TRICKS auch in der 
Computronic-Zeitschrift veröffentlicht 
wurde. Wir hielten aber diesen Beitrag 
für so wichtig, daß auch die Homecom- 
puter-Leser über diesen neuen Service 
informiert werden sollten. Für die Dop- 
pelveröffentlichung des Listings bitten 
wir alle Leser um Entschuldigung. Hier 
handelt es sich eindeutig um einen Irr- 
tum der Redaktion. Wir werden uns 
bemühen, solche Pannen in Zukunft zu 
vermeiden. 


Fehlerhafte Listings 


Ich muß Ihnen als eifriger Leser Ihrer 
Zeitschrift zu meinem Bedauern mittei- 
len, daß Ihr Programm „Geldsammler 
VC-20“ nicht läuft (in Zeile 300 wäh- 
rend des Eintippens Syntax-Error)! Da 
es mir bei Ihrer und auch bei anderen 
Computer-Zeitschriften nicht zum er- 
stenmal passierte, daß ein Listing nicht 
lief und erst im nächsten Heft eine Be- 
richtigung erfolgte, bin ich ein gebrann- 
tes Kind in punkto Listings abtippen 
geworden. Ich möchte allen Computer- 
Zeitschriften nicht unterstellen, daß es 
Absicht ist, damit das nächste Heft zu 
kaufen, um evtl. Fehler zu berichtigen. 
Es wäre schade, Leser Ihrer Zeitschrift 
dadurch zu verärgern. 

Willi Paczkowski, Bochum 6 


Antwort: Das in Heft 1/85 abgedruckte 
Listing des Programms „Geldsammler“ 
ist vollkommen fehlerfrei. Bitte prüfen 
Sie, ob bei Ihnen also nicht ein Eingabe- 


fehler vorliegt. Es ist auch nicht die Ver- 


kaufsstrategie unseres Hauses, fehler- 
hafte Listings abzudrucken, um die Ver- 
kaufszahlen der nachfolgenden Ausgabe 
zu sichern. Unsere Redaktion hat in der 
Computronic-Zeitschrift sogar eine Be- 
lohnung von insgesamt 500,- DM für 
den Nachweis eines fehlerhaften Li- 
stings ausgesetzt. Wir hoffen, daß man 
daran erkennen kann, daß unser Verlag 
auf gewissenhafte und sorgfältige Ar- 
beitsweise bedacht ist. 


HOMECOMPUTER # 


/C-20 
programm für den V c-2 


Grundversions 


Das Programm ist unter dem Namen 
‚Mister Jump“ auf Seite 1 und Seite 2 
| gespeichert. Es besteht aus zwei Teilen, 
die nacheinander eingeladen und ge- 
startet werden müssen. In Teil | werden 
die Zeichen für das Spiel neu definiert. 
Teil 2 ist das eigentliche Programm. 


Spielaufgabe/Spielgedanke: 


Mister Jump befindet sich in dem riesi- 
gen Rohbau eines Hochhauses. Er hat 
die Aufgabe, möglichst viele Geldta- 
schen einzusammeln, die in den ver- 
schiedenen Stockwerken deponiert 
sind. Unserem „Helden“ bleiben je- 
doch pro Stockwerk nur 30 Sekunden 
= Zeit und sein Weg ist mit gefährlichen 
= Hindernissen - z. B. Nägel, die er über- 
springen muß, ohne dabei mit dem 
Kopf gegen herunterhängende Stahlträ- 
ger zu stoßen — versperrt. Nachdem der 
erfolgreiche Mister Jump alle Geldta- 
schen eingesammelt hat, muß er zu- 
rücklaufen und einen Schlüssel holen, 
der ihm den Zugang zum nächsten 
Stockwerk ermöglicht. 

Wenn die 30 Sekunden für das Durchqueren eines 
Stockwerkes zu kurz oder zu lang sind, kann die 
TI-String-Abfrage in Zeile 2035 entsprechend ge- 
ändert werden. 


5 rFrRINI’# UÜLIVER SCHUARL 1984" 

3 FRIHT"A3 COLLER ALL MUENFERGS IN THE TIME I! " 
FEINI" Mb: Foul" 

FRINT'T FOINIS" 

FRINT"E> kKEr Tü NEXT STAGE" 

FREINT'EEE # = NAILS HND STEEL =D0 NOT JUMF IN THEM 
FEINT"MIHIS 15 UNLT THE FIRST FART OF THE PROGRAMM LOAD SECOND FART LATER" 
FREINT"M <£{i<£ PLERSE WAIT >3>>" 
FÜKESBEEL. HE: FÜRU=1T036:NEATO 

IFWMEL=3STHENSH 

HE=SHE-1:GU Tue 


7 


Pie] 
Le] 
3 


DR eohe 


NS cn 


SOTRRÜ 


= 
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34. PÜKESE, 28: PÜKESE. 25:CLR 
106 LIK=7’168:PLA=/443 
i62 FÜRI=8T0511:FÜKEDK+1 , FEEK(3Z7EBS+L > :NEKTI 
104 FÜKE36EE53, 255 
1de FuRU=4103 
16 FURI=BTO7:READA:FOKEPLA+1,A:NEHXTI 
11a PL#=FLA+& 
i1lZ2 NE#TU 
4 DATHSZ,44,52,44,52,44,52,44 
138 DATAB,8. 24.24, 24, 24,60, 126 
LATH126., 36,24, 36,82, 157,137,126 
DATAZ4, 24.16.60, 80,56.36,66 
DATAB, 8,6, 255, 126; 24,6,58 
DATR2SS. 195, 36, 255, 255, 36. 195, 255 
G DATAB. G. 6.255; 226, 135.8,8 
DATAEA, 66.153, 161,161, 153, 66.60 
DATAZ25S, 135.165, 153,153: 165, 135.255 
DATR2S55: 183,153, 1393,183,153; 183,255 
3 PRINT""TFRESS ANY KEY. 
25 WAIT198,1:PRINT"IJ.S. up = "um RIGHT" 
3 FRINT"AIS.S. LEFI = LEFT" 
> FRINT"AJ.S. RIGHT = RIGHT" 
35 PRINT"BFIREBUTTUN = JUMP LEFT" 
216 PRINT"MMLORAD SECOND PART NO 1" 
POKE37158, 2: NEM 


Teil 2: 


uU POKE3BES73,8:GOTUS5B64 
5 FÜKE36873.3:FOKE36378,15 
4 TL=36378: TH=36874:86=1 : AMe3: SC=Q: TN=36875 
GOSUESBAG 
sel: r23:M=7650: Ts" Haha" 
FOKEM+K+22#Y.,38 
2 GOSUE1868 
IF J2=1 THENFOKEM+R+22#T , 32: K=K-1:G0TO6A 
2 IFJ3=1 THENJA=-22: JB=-21: IJC=23:G0T01508 
IF Ja=1 THENFOKEM+R +22, 32: K=k+1:COTO6A 
6 IFFR=1THENJA=-22: JBE=-23: JC=21 :G0OT01588 
50T028 
GOSUEZBERA 
9 GOTO2S 
1668 10=37154:P1=37151:P2=37152 
1218 FÜKEID. 127 
1828 P=PEEK<PZIANLIZE 
14354 Jü=-(P=4) 
1846 FÜKELD, 255 
1856 P=PEEK<P1> 
iB68 J2=-<C<PANDIEI=B)> 
1675 J3=-(<PAND4>=A) 
1475 se HDSE) => 
iasa jr NElntalmlelniIm BIER RAT IME:"; TIS;" 7 ST:"3S6G; 
1834 RETURN 
1588 PÜKEM+R+Z2#T, 32: NM=M+JA : GOSUB2RRG 
1515 FÜRT=1T056@: NEXT 
1520 PÜKEM+H+22%#T7 , 32: M=M+JE: GOSUB2A98 
1825 FORT=1T058:NEXT 
1538 POKEM+A+22#Y , 32: M=M+JC: GOSUBZBHOB 
1535 FORT=1T058:NEXT 
1548 FÜKEM+A+22%#Y, 32: M=M+JC : GOSUB2RRg 
1545 GOTOZ28 
2608 IFFEEKCM+R+ZZHTF=3ETHENAM=AM-1:CK=36 :GOTO220A 
2818 IFFEEKCM+R+Z2#7)=35THENAM=AM-1:CK=35 :G60T02208 
2026 IFPEEK(M+K+22#73=37THENSC=SC+H1:FORT=108T0158: POKETL, 7: POKETN, T:NEXTT :POKETL 
‚A:POKETN-@ 
2038 IFFEEKCM+R+ZZHYIS=S3ITHENVeY +4: enge ee 38 
2835 IFT1$>"086630" THENAM=AM-1:GOTO 
2048 IFFEEKCMH+R+22%#7)=41 THEN4ERRA 
2u45 IFPEEKCM+R+ZZETI=43THENK=SR +1 
2847 IFFEEK(M+R+ZEHT)S44 THENYSK-1 
2858 PRINT"SSC:":SC) "IB MEN: ";AM: 
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ng 
POKEM+A+ZERT 3 
5; FOKETL, 18: POKETH, 1B4:POKETL.8 
MM=MM-1 
RETURN 
FÜKEM+R+ZZKT 45 
FORT=1 10258: POKETL; 18: POKETH, T:NEXTT : POKETL,@:POKETH, 9 
IFAM=8THENS@BH 
FÜKEN+H+22%Y, CH: GOTO28 
At=" FRBBFSEI EI ET N" 
a BETTER TER" 
Bauart 1 1:3] Trapcza lie Mar 131 1 1:3] 1 17720 
De= gr Id 1521 1 maae 1 1221 1 1 1 1 123) 12 Bar 2 1 
Et=" RE ee" 
RETURN 
an a 1£ 1 1 1a 3 152] JE2] dar) 1 1 122 21 1 JE 
=" TEBRBIE A NRFSETT IRRE ARE" 

= lat 182] 1 je 7 123: 50] 1 1 15 1 123 sr 0 
Tt='" Fa Ib a A" 
Et='" TER IRFEIHE STREET" 
RETLURH 
IFSC/SG?=E&THEN43B8 
FRINHT"I4 YOU FORGOT SOME 

= PRINT"MM MONEYAT BAGS 
PRIHT"M TR'r AGAIN & 
FORT=1T011688: NEXTT:GOTO1S 

aa PRIHT"I":CWe1 

5 PRINT"S"SLEFTFCOE.CV) 
EY=CV4+l: IFCV>Z2THENG33O 

Ss FORT=1T0158:HEATT 
GOTO4385 
PRINT" MASDIRISRLCNUN ENTER NEXT STAGE 1":56=S6+1 
FORT= 1102000: NEXTT: GOT015 


PRINTUMErOLU COLLECTED ";SC 
Us="# 1924 OLIVER SCHWARZ" 
PRIHT"MONEFBAGS" 
=6 PRINT"ABEIW-- PRESS S TO START -—" 
35 PRINT" IMS... „I... DIRBRRRRERBBRIESC CC" 

PRINT" MEER" 0% 
GETR&E: IFR$="" THENSRSO 
IFR$="S" THENS 
GOTOSBS8 
FEINHT"TT':FOKE3EE73,8 
2G=IHTÄRNDETID#Z3+1: IFZG=1 THENGOSUB23QG 
IFZG=ZTHENGOSUB2508 
FREINHT"S335C:"55C; "Webb MEN: "AM 

a FRINTA$; 
PRINT"EECCLCEEECEELEECELE CC"; 
PRINT" IHHRBBRBRRBE 
PRINTE®; 
PRIHT"EECCEE ELLE", 
FRIHT "HIBEBDEDEDHADDBDH" 
FRINTC®; 
PRINT"BECLCCLTLLCCHECLECECLEEN, 
PRINT" IERHHBBEH BREI" ; 
FRIHTIS$; 
PRINT"ECCELECLLCCLCLLCL cc"; 
PRINT" IBBRRBEHBBBREBBI N" 
FRI NTES; 3 


FORT= PPOSTORIEASTERZ2. -POKET ‚43: POKET+38728,6:NEXTT 
FORT=?7231T08185STEP22: POKET . 44: POKET+39729,6:NEATT : RETURN 


KERNEL NK I 
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„Catch the Fish“ 


VC-20 


Commodore-Spiel nach dem 
Motto: 


für die Grund- 
version VC-20 


„Selber fressen 
oder 
gefressen werden 


Sie sind ein Fisch, der sich im „Roten 
Meer“ durch das Leben schlägt. Auch 
im Roten Meer ist der Kampf um das 
Überleben ein „hartes Brot“. Sie müs- 
sen kleine Fische fressen, um selbst satt 
zu werden, und gleichzeitig darauf ach- 
ten, daß kein größerer Rivale auftaucht, 
der Sie selbst als Appetithappen be- 
gehrt. 

Ihre Aufgabe ist es, innerhalb von zwei 
Minuten sämtliche kleineren Fische, 
die auf dem Screen erscheinen, zu ver- 
tilgen und dabei den großen Rivalen 
auszuweichen. 


18 REMAKE 
12 REM&CATCH THE FISH* 


14 kEM# CL) 1964 Br 
16 REM ANDREAS HÜLY % 
18 REM# FÄNTUCERG. 33% 
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REM# 1116 WIEN % 
REM#* OESTERREICH %* 
RE IRRE 
REM# VC-20 * 
2 REM# GRUNDVERSION # 
RER 
REM GRAPHIK 
FRINTCHR$(S> 
FOKE36873, 24 
FRINT' Ieagalaı CHRBITTBICTIH" : PRINT" MERNa TIHME" 
PRINT"MA FallisiaH" : 
FRINT" UKIninaininisinisinisinininlsin mine BITTE WARTEN": 
5 PÜKE36878; 15 
186 POKE36869, 255 : POKESE, 28: POKESZ, 28: FORQ=BT0511: POKE?168+Q, PEEK(32768+0) :NEXT 
118 FORG=6T073: READS : FOKE?7168+0,5:NEXT 
126 DATAB, 16,59, 92, 124,268,59,16,08,8,220,58,62,56, 228,8 
136 DATAB, 8,8, 123, 252,123, 8,08,8,8,6, 222,63, 222,8,8 
146 DATAZ:3,15,119,31,127.14,1,8,8, 226, 246, 254,246, 226,0 
158 DATAS4, 192, 248, 239, 248, 255, 112, 128,8,8, 71,111,127,111,71,8 
168 DATAGB, 36,48, 16, 211,52, 24, 255, 255, 255, 255, 255, 255, 255, 255, 255 
1866 RUNSBBB 
5908 POKE36879, 232: PUKE36869, 255: PRINT"I' :%=8:D=8: T=B 
5618 FORF=BT0153: POKE?EBB+P , 9: POKE3S8488+P ,6: NEXT 
5828 FRINT" SIT 
5166 PRINT '" WSdrDEUSIEDKRLEUSUNUSURDEUSURDKTNDRTRTNÜSTR] Sn. ME B- DR _ ante. ut EHE" ; 
5118 FORP=8TD21 : POKES164+P ,3:POKE38884+P , 8: NEXT: 5=B 
8868 FÜKE36878, 15:FORF=1TU18:L=INTCRNDG 134198) : POKE7878+L, 2: POKE?B78+L+28, 3: 
6818 :PÜKE38598+L,2: PÜOKE3BSIE+L+28, 3: NEXT 
528 Tl$="BBBBR" 
’oB& F=37151:FOKEF+3, 127 
7818 IFPEEKCFI=11BTHENK=X-1 :PÜKE?944+X +1,32: M=B 
7828 IFPEEK(F+1)=119THENX=X+1:POKE?79344+%-1,32:M=1 
ra38 IFPEEK(FI=118THENA=K+22: POKE7944+%-22,32 
?848 IFPEEK(F)=122THENX=X-22: POKE?7944+X+22, 32 
7856 IFPEEK(F)=1B6THENX=K-23: POKE7944+%+23, 32 
rüsß IFFEEK(FI=1BZTHENK=X+21:POKE7944+%-21, 32 
’BsB IFX>197THENK=X-44 
7836 IFAT-BSTHENS=R+44 
?288 IFFEEK(7944+%>=2THENS=5+28: GOSUBZ20008 
7218 IFFEEK(7944+X)=3THENS=S+38 : BOSUB200808 
7566 POKE7944+X,M:POKESBEB4+X,6 
7888 PRINT"SMSPUNKTE" , "ZEIT" :PRINTS, TI$ 
7856 IFT1$>="006208" GUTUS8B88 
‘388 Z=1INTCRNDCIIH4) 
7318 IFZ=BTHEND=D+22: T=T-22 
7928 IFZ=1THEND=)-22: T=T+22 
7338 IFZ=2THEND=D-1: T=T+1:J1=4: J2=5: J3=?7: J4=6 
7946 IFZ=3THEND=D+1 : T=T-1: J1=7: J2=6: J3=4 : J4=5 
7945 IFD<-115THENL=D+44 
7946 IFDP124THENL=D-44 
7347? IFTZ-128THENT=T+44 
7945 IFT>112THENT=T-44 
79358 Q=PEEK(BB16+D) :UI=PEEK(BB16+D+1) :DZ2=PEEK (8828+T) :Q3=PEEK(B828+T+1) 
7951 IFO=20RG=30RG1=20RQ1=30R02=20RG2=30RA3=ZURQ3=3THENGOSUB22098 
7352 IFü=10RO=BÜRG1=10RQ1=BORGZ=1ORQZ=BORO3= 1 ORG3=BTHENGOTOZ24888 
7368 PÜKESB16+D, J1:FOKESBLE+D+1, J2: POKE38736+D, 5: POKE38736+D+1,5 
79362 POKEBB2B+T , J3:PÜKESBZ8+T+1,J4:POKE38748+T , 4: POKE39748+T+1,4 
7365 FORYC=1T0188: NEXT 
7378 FOKE8828+1 ‚32: PUKESBZE+HT+1,32 
7386 PÜKEBBI1E+D.32:POKEBBILE+D+1,32 
7999 GOTO7888 
20086 FOKE36876 : 248: PÜKE36876,8:Fi=INTCRNDI1>WZI +2 
28616 P=1NTCRND<13%#198) :POKE7878+P ‚Pi: POKES8598+P , Pi: RETURN 
22066 POKE36874 , 248: POKE36874,8:P1=INTCRNDC1>#23+2 
22818 F=1NTCRND(1)%#1985 :POKE7878+P ,P1:POKE33598+P, Pi: RETURN 
24008 FÜKE36874, 255: FÜRB=1T0288 : NEXT: POKE36874,9 
24615 FORB=1T02888 : NEXT: GOTOS9088 
SaB88 PRINT" SERUKDKKRL GAME DOVER 2 
54085 FÜRW=254T0128STEP-1:POKE36874,W:FORWI=1TO18: NEXT : NEXT :POKE36874, 8 
S8818 IFS>HTHENH=S 
59826 PRINT"MA HIGHSCORE = "H:PRINT" MA -TASTE- B 
58635 FÜKE198,8:WAIT198,1 
S5bB4b GOTOSBBB 


en a Val her a ab u de on Auer Tage alarm nahe Mn nd Tesnm aTan, un nun ler Wh ih An UL a a ad ans an Weiche a N u en are Tine on An Cie Sie Man up A. han DATEN an ae De on SR ER a PARKEN RUThEr 27, VOCM 


12 HoMECoMPUTER APRIL 1985 


COAL-MINER 


TI-99/4A 


Kohlen-Hermann und sein Freund, 
der Erdgnom Ralf 


Coal-Miner ist ein grafik-, sound- und 
“farbreiches Spiel für den TI-99/4A in 
der Grundversion, wobei der Speicher- 
platz voll ausgenutzt wurde. Bei diesem 
Spiel geht es darum, möglichst viel 
Kohle einzusammeln. Das Männchen 
namens Hermann läßt sich mit den 
Tasten S, D, E und der Leertaste in die 
jeweilige Richtung bewegen (Leertaste 
für nach unten). Die Kohle wird mittels 
der Taste A aufgeladen. Man muß dann 
die Kohle zum Lkw bringen, sich auf 
die Rampe stellen und zum Verladen 
“ der Kohle die Taste F drücken. Danach 


wird die Karre, die im beladenen Zu- 
stand blau ist, wieder weiß. Jedoch 
kann bei allen Aktionen sich der 
Erdgnom Ralf in den Weg stellen. Um 
weiter spielen zu können, mußt du ihm 
die Kohle zu fressen geben. Dies ge- 
schieht mit Hilfe der Taste G. Die 
Funktionen der Tasten A, G lassen sich 
nur durchführen, wenn man unmittel- 
bar neben dem Gnom bzw. der Kohle 
steht. Beim Abladen der Kohle (Taste 
F) muß man am linken Ende der Abla- 
derampe stehen. Jede Berührung mit 
einem anderen Gegenstand führt zur 


' 
ı 
@ ; 10 Fri ı 398 PRINT "Du 
124 CALL CLEAR © ı den Tasten:": : 
34 CALL SCREEN 11) 1 4A@ PRINT "CE) 
@ : 48 FRINT " *%% COAL-MINER KK" PEID PRINT "$) 
ı58 PRINT ' 426 PRIR 
“168 PRINT " Copsrisht bu" ı 434 PRINT "CLEERTASTE) = 
® ı ra PRINT " Wilhelm Konrad %" @ : 448 FRINT "(AD 
} ı56 PRINT " Ernst Hoelzenbein": ı 458 FRINT "CF> 
'39 CALL SOUND(489,131,8,165,8) ı 4E8 PRINT "(G) 
® ı 198 CALL SOUND 208, 131,8, 165,8) @ | Kohle an den Erdanom" : 
'118 CALL SOUND« 208. 165,8, 196.8) ı 
ı 126 CALL SOUND 488, 196,8,247,8) ' 438 CALL KEYCA,KEY,STATL 
® : 134 CALL SOUND« 409, 262,0,339,0) ® ! 435 IF STATUS=8 THEN 458 
1148 CALL SOLND« 899, 196,8,247,0) ı 59a CALL SOUNDE 3400, 
@ .'50 CALL SOUND 408, 165,8, 196,8) ! 9,739.0.-2:9) 
"164 CALL SOUND 489, 131,8, 165.9) ® ı Ssia REM KKKGRAFIKKKK 
" 41178 CALL SOUND 498, 196,8,247,8) 529 CALL CLEAR 
@ 139 CALL SOUND 288. 196:9,247.0) ı 534 CALL SCREEN 2) 
ı 199 CALL SOUND 298, 196,0,247,8) @ ı 54a CALL COLORC9 
298 CALL SOUND« 4ER, 196,0.247,8) ‘55a CALL LOLORC16: ei 
© ! 215 CALL SOUNDE 400, 196.0,247,0) oe: CALL COLORC 15,1 
ı 228 CALL SOUND 1208, 196,8. 247,8) ' 578 CALL COLOR 19,1 
_ 1234 CALL SOUND« 608, 196,9,247,0) Ö CALL COLORL7,7, 
® ı 248 CALL SOUNDE 209, 196,9,247,8) © ! 53% CALL COLORC2,2, 
1758 CALL SOUNDE 408, 165,9,196,8) : CALL COLOR 13,1 
| 26A CALL SOUND« 408, 196.9,247.8) ' CALL COLORE 14, 
® : >78 CALL SOUND. 380, 262,9,330,8) © ! 52% CALL COLORC9,9,1> 
' 788 CALL SOUND« 308, 196,0,247.0) ı 534 CALL COLORC16,16,1> 
ı 299 CALL SOLINDE 680, 220,9,262.0) ' 
& ‘398 CALL SOUND 289, 196.8,247,8) ®@ 
ı 318 CALL SOUND« 498, 175,8,220.0) 
@ 32% CALL SOUND« 488, 220,0: 262.0) : 
13394 CALL SOUNDE 1608, 196:8,247,03 ®. 
ı34M CALL CLEAR 3 
@ ı 59 CALL SCREEN: 14) @! 
ı 368 PRINT "kgkggckikiikkkiogggkgggkgagkock" 
ı378 FRINT "% SPIELREGELN: COAL-MINER x*" 
® | 238 PRINT "ekakagakagggiggigalgigigiglgigikihikck" : 
N 
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:500 Schritte machen darfst. 


"£D} = nach rechts! 


478 PRINT "<BITTE EINE TASTE DRUECKEN?" 


Beendigung der jeweiligen Spielrunde. 
Pro Spiel gibt es drei Spielrunden. Be- 
denke, daß du bei jeder Spielrunde nur 
Jeder 
Schritt zählt | Punkt. Für einen vollbe- 
ladenen Lkw gibt es 150 Punkte. Au- 
Berdem werden beim Wegfahren des 
Lkw die Schächte mit neuer Kohle ge- 
füllt. Der Lkw verschwindet dann, 
wenn man die vierte Ladung Kohle auf 
den Lkw verladen will. Wenn man den 
Gnom gefüttert hat, bekommt man als 
Trostpflaster einen Punktebonus. 


; Hermann mit 


= nach oben” 
= nach linke" 


nach 
Aufladen der 
Yerladen der 

= Aus lieferunsg 


unten" 
Kohle" 
Kohle" 
der 
STATUS} 


247,0,468, 


‚1> 


x 
PEN 
De 


De We 


6: 
ie) 
A; 
1) 
> 
4, 


‚13 
1 
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14aa CALL YCHARC 4.25.1123 
1418 CALL HCHAR«C 4.25, 114) 
1426 CALL YCHARK 4,26, 113) 
1438 CALL VCHARC4,27,149 5 
1444 CALL YCHAR«C 327,150) 
1454 CALL YEHAR«E 3,26, 116) 
1468 CALL VCHARE 324,855 
1474 CALL YCHARG 4,24,995 
1436 CALL YCHARK3:21,81,29 
1474 CALL YCHARC2,21:129) 
1586 CALL YCHAR«C2,20.130) 
151A CALL VCHARK 1.28.1317 
15268 CALL YCHRARS1,21.132> 
1538 CALL HCHARES:1,59, 14) 
1548 CALL HEHAÄRE 5:19,59, 145 
15549 CALL HCHAR«C6,1,72,14> 
1568 CALL HEHARE 5,19, 72,149 
1578 CALL HEHARE 71, FZ14> 
1555 CALL HCHARC 7.19,72.145 
1594 CALL HCHARK 3.1, 72,14) 
1644 CALL HCHARKS,19, 72,145 
1518 CALL HCHARC 9.1, 72.2) 
1524 CALL HCHARKS,19, 72,145 
1636 CALL HCHAR« 18.1,.72.25 
1546 CALL HCHAÄR“ 18,19, 72,14) 
1558 CALL HCHAR@ 1121, 72,14) 
1666 CALL HCHARE 11,19, 72,14) 
167A CALL HCHARE12.1,72,14) 
1584 CALL HECHAR«C 12,39,72,3> 
1598 CALL HEHARK 13.1: 72,143 
1768 CALL HÖHAR“ 13,29, 72,45 
1718 CALL HCHAR«E 141.727 
1726 CALL HCHARE 14.19, 72,145 
17358 CALL HEHARE15.1,72,23 
1748 CALL. HEHARC 15,19, 72,149 
17564 ECALL HCHAR«C 1E,1,72,145 


rd CALL COLORC4.3,1 
58 CALL COLORCE,E.1 
BEA CALL COLORC3.3,1 
Bra CALL COLORCS,S-L 
ESM CALL COLORS.S,1 
534 CALL COLORCI2.12,19 
‚aa CALL COLOR“ 11.11.19 
r18 REM DACH 

728 CALL CHAR« 96." GEABBAABELAZATAF" } 
738 CALL CHAR« 37." BERAGBBRSALBEehra" } 
r48 CALL CHARC 38. "1F3FFFEREFFFFFFFF" > 
756 FALL CHAR“ 93, "FSFEFEFFFEFFFFFF" 
764 CALL CHAR“ 186, "BRBBaaaaazarar" > 
?78 EALL CHAR“ 191. "BnbsaaaasaLaeara" > 
r7#4 REM UAENDE 

7394 CALL CHAR 112. "BFGFOFAFGFOFGFOF" > 
sAa8 CALL CHAR“ 113% "FFFFFFFFFFFEFFFFF" > 
SiA CALL CHAR« 114. "FAFGFOFOFOFOFOFO" > 
528 CALL CHAR« 143." 7EFAFEFEFETEFEFE" > 
s34 CALL CHAR 1568. "BB7E424242FEFERE" > 
848 CALL CHAR«I1S,"FFiILLILIFFI11III" > 
556 REM FASS 

566 CALL CHAR« 83, "BERBBBRRRRFEFEFE" > 
Sr7A CALL CHAR« 59, "ÜBFEFEFEBEFEFEFE" > 
554 REM BAUM 

334 CALL CHARCS1,"FEFAFGFOFOFOFOFO" > 
Sad CALL CHAR« 129, "FFFFFEFEFCFEFCF®" > 
718 CALL CHARC 130. "3F7FFFFF3FSFO7G3" > 
978 CALL CHAR“ 131, "BISLALSFEFSFFFFF" > 
34 CALL CHARC 132, "SCSCFEFFFDFDFEFR" > 
944 REM RASEN 

58 CALL CHARC SI." ) 
“62 REM ERDE 

37a CALL CHAR“ 72, "5589EH945BSE3ZEAA" > 


a 


— 


93A REM WASSER 1760 GALL HCHAR< 16,19, 72,14) 
394 CALL CHAR« 134, "183C7EFFFFFFFFFF" ) 1678 CALL=HEHARCI?»1, 72,4) 
1aaa REM RAMPE 1728 CALL HCHAR« 17,28, 72,59 
1218 CALL CHAR« 127, "FFAASSAASSARSSAR" > 1738 CALL HCHAR<18,1,72,53 
1824 CALL CHARC 121, "SSAASSAASSAASSFF" > 1208 CALL HCHAR“18,28,72,5) 
1834 CALL CHAR« 125, "3F3FoBBaBnABaAAR" > 1816 CALL HCHAR«C19.1,72,143 
1A4A REM LKW 1524 EALL HEHAR“ 19,19, 72.149 
1854 CALL CHAR« 145, "BO3LFESEEETEILAR" ) 1830 CALL HCHAR« 28.1.7214) 
1465 CALL CHAR 38, "FFFFFFFFOBBORBOR" > 1840 CALL HCHAR< 28, 32,72) 
1978 CALL CHAR« 137. "aFTFFEFFFEFFFFFF" 1859 CALL HCHAR<21.1,72,14> 
1934 CALL CHARC 138, "FSFSFSFSFBFBFFFF" ) 1860 (CALL HCHARCZ1 51, 72,23 
1836 CALL CHAR« 139. "3F3FaF3F3FSFFFFF" ) 1878 CALL HEHAR« 22,1, 72,145 
1188 CALL CHAR 148, "GFLF3ESC3SISFSFR" ) 1220 CALL HEHARC 22,19, 72,145 
1118 CALL CHAR 141. "FFFF3F3F3F3F3F3F" ) 1838 CALL HCHAR« 23,1,72:142 
1128 CALL CHAR<C 142, "BF@FBBFFFFFFFFFF" ) 120% CALL HCHARS 23,13,72,14) 
1139 CALL CHAR« 143, "FFFFOBFFFFFFFFFF" ) 1918 CALL HCHAR<23, 15,134,4) 
1146 CALL CHAR 94, "OFGFOFOFOFOFBFOF " ) 1320 CALL HEHAR< 3,13, 127,29 
1158 REM HERMANN LINKS 19338 CALL HCHAR< 4,13, 121,25 
1168 Al$="3053F83030S3SCER" ER A EESEERE RER? 
1175 A2$="6A7A7I7A434B42D8" 1950 GOTD 2130702 32 

i18A REM KARRE 13654 REM FOSITIOH LEH i 
11998 A3$="S1FFS1FFSIFFE6ES6" 1979 CALL VCHAR« 4,6, 145) 
1206 REM HERMANN RECHTS 1988 CALL YCHARC4,9.1453 
1218 Ad$="30637C3039585C6R" 1336 CALL, YCHARC 4, 19,145) 
1226 AS5$="6A7A73734843436C" zunG CALL VCHARC 45,88) 

1236 REM ERDGHNOM 20168 CALL VECHAR“ 47,905 

1240 CALL CHAR( 58, "BD7EDBDEFF2424E7" ) -a2a CALL YCHARC 43,80) 
1258 REM KOHLE 2436 CALL VCHAR(4, 11,89) 
1268 CALL CHAR« 71, "BOG@1S3CFETEFFFF" >) aaa CALL VEHARC3:5,1379 
1276 REM POSITIONEN nz Be er 

= FIR zme, I „, RC fern ce 
1298 CALL. SCREENG2) 2a7@ CALL YCHARC2.6, 140) 
ae Er 2u80 CALL VCHAR«C2,7.141) 

Ba or one er a9 CALL YCHRRL3,S, 142) 
1338 CALL YCHAR« 2.26. 98) DIE BEN 2 220 ar 

1348 CALL VCHARC2,27,99) re 

1358 CALL VCHAR( 2,25, 198) ea 

1368 CALL VCHARC2,28, 181) 2146 CALL VCHAR« 18.3, 71) 
133% CALL YCHAR« 3,26, 113) 

1336 CALL VCHAR(3,28,114) 
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2169 CALL VCHAR“18,6,719 
2178 CALL VCHARC 13,28, 71) 
2188 CALL VCHARK1S,27,719 
2156 CALL VCHARC 21,36, 715 
2248 REM *#XX5PIELBEGINNKK# 
2218 #=13 

220 1 

2238 5=152 
?24A CALL CHAÄR«C 108, A1$ > 
?256 CALL CHAR«C 189, R2$) 
Fzen CALL CHARC11G. AS) 
?278 CALL CHAR«111,A5$ > 
2256 CALL CHARCS,A3$) 

?234 CALL CHAR«48,A1$) 
2388 CALL CHAR« 41,.A2$) 
2318 CALL CHAR« 42,43$) 
2326 CALL CHAR« 43, R4$ > 
2338 CALL CHAR« 44, A5$ ) 
7344 CALL SOUNDE 200,389,8, 
343,8, ET 4,-8,8) 
2358 CALL VCHARCY,K, 118) 
7364 CALL VCHARCY+1.%, 111 
2378 CALL VCHARC Y+1,%+1,59 
?35A CALL SOUND« 18,-5,8) 
2338 CALL KEYCB,KEY,STATUS> 
2468 IF STATUS=8 THEN 2399 
24168 51=51I+1 
?424 IF 51=568 THEN 4538 
2434 IF KEY=655 THEN 2458 
2448 GOTO 2996 
2458 CALL GCHARCY+1,8+2.M) 
2458 CALL GCHARC Y+1,%-1:N> 
2476 IF N=71 THEN 2568 
2424 IF M=?71 THEN 2946 
2496 GOTO 2398 
2508 IF S=64 THEN 4538 
2518 RANDOMIZE 
2528 #A=INTCRNDK19) 
2538 IF X#>6 THEN 2568 
25468 CALL VYCHAR«9,17,585 
2558 CALL SOUND« 188, 119,0) 
2568 RANDOMIZE 

2574 J=INTERNDEE +1 

2536 _ IF J=7? THEN 2668 

2538 GOTO 2616 


u J=1 THEN 2636 
2678 Lord 2669 
2530 CALL VCHARC18,15,58) 
2648 CALL SOUND« 168,110,0> 
2658 GOTO 2898 
2e£8 IF J=2 THEN 28680 
2678 GOTO 2716 
2658 CALL YCHAR«K 15,15,.58> 
2638 CALL SOUND« 188,119,8) 
zr/ad GOTD 2896 
2718 IF J=3 THEN 2738 
2728 GOTÜ 2768 
2738 CALL YCHARC 18,15,58) 
2748 CALL SOUNDE 168,118,.0) 
2758 GOTO 2396 
zr7#s8 IF J=4 THEN 2758 
2776 GOTO 2818 
er7sA CALL VCHARK18,18,58) 
2738 CALL SOUNDE 196,118,0> 
2288 GOTO 2838 
za16 IF J=5 THEN 2838 
Fszn GOTD 23650 
2338 CALL VCHARC13,18,58) 
2#48 CALL SOUND 186,116,8) 
250 GOTN 2896 
eren IF J=6 THEN 2876 
37a CALL YCHAR«C21.18,58> 
2856 CALL SOUND“ 166,118,8) 
2396 5=654 
2348 CALL SOUND 208, 1269,09) 


CALL EHAR«S,A3$ ) 
CALL YEHARS HL. a-1,: 


2934 GOTO 2996 


IF S=64 THEN 4550 


3 S=64 


EALL SOUNDE 2AR, 1200,08) 
ERLL CHAR S,A3$} 

CALL YEHARE Y+1,4+2,322 
IF KEY=78 THEN 3418 
GOTO 3526 

IF S=64 THEN 3538 


a GOTO 3528 


IF Y=1 THEN 3456 
GITO 3528 
IF #=12 THEN 397% 


a GOTO 3526 


EALL GEHARC 29,1) 

IF 1=?1 THEN 3134 
EALL YCHARC2,9,71> 
LALL SOUNDE 196, 509,6) 
5=152 

KATI 3528 

EALL GEHARC 2,10.) 

IF U=71 THEN 3198 


1 ECALL VCHAR«2.19,71> 
a CALL SDUNDE 168, 400,0) 


5=152 


A GOTO 3529 


CALL GCHARCZ2,11:UN 

IF U=71 THEN 325A 
SALL YCHARC2,11,71)> 
CALL SOUND 168,389.60) 
S=152 

GOTO 3528 

CALL HEHARC1.S:32:7) 
CALL HCHAR«2,5:.32:79 


A CALL HEHARK 3,532, 75 


EALL HEHAR«C4,5,32,7 9 


a CALL SOUND« 189,131.0> 


EALL SOUND 199,131.0) 

EALL SOUND 200 ,119,0,175,6>5 
EALL SÖOUND« 206.131:8.228.0)9 
ERALL SÖLND 168, 175,85 

EALL SOUND« 188,175,8> 

EALL SOUND« 2868,165.0.1 

EALL SOUNDE 266 ,1965.8,2: 

EALL SOUNDE 109,131.0) 

EALL SOUNDK 190, 185,8) 

LALL SOUND 159,123,8,196,0) 


a CALL SOUND 194,131,%, 220,65 


EALL SOUND« 208,123,8.196.8) 
EALL SOUND 208. 119,8,175,8) 


a CALL SOUND« 368.118, 36) 
A GOSUB 137% 

4 PE=PK+158 

A CALL VCHRAR18,3,71> 


EALL YCHRARC1S, 3,715 
CALL YEHRAR1S,6,71> 
EALL VCHARE 13,25: 719 
EALL YEHARE1S,27,71> 


A CALL YCHARC 21,38, 71) 


IF KEY=33 THEN 3328 
IF KEY=71 THEN 36518 
IF KEY=63 THEN 386% 
IF KEY=63 THEN 359% 
IF KEY=32 THEN 458% 
IF KEY<>33 THEN 2396 
IF KEY“ >63 THEN 239% 
IF KEY< >69 THEN 2399 
IF KEY£>3Z2 THEN 2336 
EALL GEHÄRCY+1:K+2,BD 
EALL GCHARC Y+1:#-1,C9 
IF 5=152 THEN 2399 

IF B=55 THEN 3660 
GOTO 35398 


A CALL YECHAR« Y+1.H+2,32) 
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[A 


(Br) 
u 
per 
N 


4148 CALL YCHARC +15, 1119 
4158 CALL GEHARC +1. A+1:P > 
4168 IF P>44 THEN 4156 
417a GOTO 4196 

41a IF Fi152 THEN 4586 
4198 CALL nee 
42a8 IF Y=1 THEN 42 

4216 CALL WCHAREY- 8 435 
4224 CALL VCHARKYSA+L.42) 
4234 GOTO 2336 

4244 CALL VYCHARC1,S. 405 


GOTO 3738 

IF C=55 THEN 3718 

GOTO 3818 

CALL YEHARCY+1,#-1,323 

5=152 

CALL SOUND« 175,131,9,262.,0.-2,0> 
EALL SOUNDE 156: 349,9,695,68.-3,03 
CALL SOLUND« 108, 349,0.6993,0:-3,0> 
CALL SOUND« 158, 440,0,888,0,-3,05 
CALL SOUNGE 106, 444.,0,590,0,-3,05 


AA 


RR 


ARE 


DONAU NSNNANNAHNT 


Kat 


IE59595559595% 


DEE NE EN 
EN u u EN rn DE BE NE EVEN 


Aa CALL SOUND“ 268 ,523,8,1047,0,-3.8; 425A CALL WCHARC2,K+1,42 7 
A CALL SOUNDE 166, 440,0,850.,60,-3.05 42658 GOTN 4236 
zaaa PK=PK+25 4274 CALL CHAR« 116,Ad4$ } 
3816 GOTO 233% 4284 CALL CHARK111.45$ >} 
3820 K=k-1l 423A CALL GEHAÄRKY.K.P> 
3534 GOSUB 4436 4364 IF P>44 THEN 4328 
3548 CALL YCHARK THIS ArZ, 42) 4316 GOTO 4338 
„85a GOTO 2388 4328 IF P<152 THEN 4556 
3565B Asä+l 43308 CALL YCHARC YA, 110) 
3570 GOSUB 4278 4344 CALL YEHARSCY+1,%, 1119 
3854 GOTO 2336 4358 CALL GEHAREY+1, +1, P > 
3834 Verl 4350 IF P>44 THEN 43560 
3366 IF Y<i1 THEN das 437A GOTO 4396 
=31A CALL GEHARCY.S.P > 4384 IF Pi152 THEN 4556 
=#26 IF F>44 THEN 3946 4338 CALL YCHARK +1, A+1,50 
39338 GOTO 3356 44aGa CALL YCHAREY,R-1,43) 
3#4a IF P<1S52 THEN 4584 4416 CALL YCHARSV+1, 8-1, 44) 
3556 CALL YCHARCYA, 1105 44260 RETURN 
396564 CALL YCHARKY+1,#, 1119 4430 CALL CHAR« 1AS,Al$> 
=a7A CALL GCHARÜV+1,K+1,P) 4444 CALL CHAR« 169,H2$> 
„284 IF P>44 THEN 4aaa 445A CALL GEHARCY,A,P> 
3996 GOTD 4018 4460 IF P>44 THEN 4430 


4470 GOTÜI 4490 

4456 IF F<152 THEN 4538 
4434 CALL YEHRRENV,#. 1055 
45AB CALL GEHARK + ASPD 
4518 IF F>44 THEN 4538 
4528 GOTO 4544 

45360 IF F£1SZ2 THEN 4536 
454m CALL WCHARCY+1.%. 1809) 
4556 CALL YCHARCT+1, +1,55 
456A CALL YVCHARSYGR+L. 43 
4576 RETUFN 

4554 PRINT 


auaa IF FP<1SZ THEN 45868 
4ala CALL YEHARCY+1.8+1.5) 
auza CALL YCHARCY+2,A,43 3 
4a3a CALL YEHARCT+2, E44 
4aga CALL YEHARCV+Z,A+1,42 3 
aasa GOTO 235868 

4asa Y=1 

4a7a GOTO 2358 

gasa Ya'ıtl 

4438 CALL YVEHARCHK- 1105 
4aiaa CALL GCHÄRE Y+1,%,F> 
411f IF F>44 THEN 4134 
412 GOTO 414d 

4138 IF Pi152 THEN 453% 


A lifetime warranty. And manufac- 
turing standards that make it almost 
unnecessary. 


Rund 1.000 Angebote. Alles von COMMO- 
Consider this: Every time you take 


DORE, Sinclair, Dragon, Sharp, Spectra- 


NEWMAN a 


video und anderen mit Original-Werks- 
Garantie. SOFORT LIEFERBAR. Ob Hard- 
ware, Peripherie, Bücher, Programme oder 
Zubehör, as re alles aus nr de Din 


ie BERATUNG. 
21 Gutschein für 


und absenden. 


Ausfüllen, ausschneiden, auf Postkarte kleben MU11 


Y, Name/Vorname 
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Computer-Versand Postfach 50 1126, 
2000 Hamburg 50, Tel. 040/850 60 71 


your disk for a little spin, you expose 
it to drive heat that can sidetrack data. 
Worse, take it to the point of no return. 
Maxell’s-unique jacket construction 
defies heat of 140°F. And keeps your 
information on track. 

And Maxell runs clean. A unique 
process impregnates lubricants 
throughout the oxide layer. Extending 
media and head life. How good is Gold? 


Maxell’s the disk that many drive manu- 
facturers trust to put new equipment 
through its paces. It's that bug-free. 

So you can drive a bargain. But in 
accelerated tests, Maxell floppys lead 
the industry in error-free performance 
and durability. Proving that if you can't 
stand the heat you don't stand a chance 


maxell. 


ITS WORTHIT. 
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TIPS + 
TRICKS 


TI-99 


4556 FÜR ER=666 TO Zu 
4588 CALL SOLNDE 18ER.) 
dsl NEXT ER 

4528 CALL SCREENG 18 > 
4538 PRINT "XXX COAL=-MINER x": 


4e4M FRINT "METER “Sl 
4550 PK=PK+S1 
4esg PRINT "SCORE ";PK: 


4661 CALL HÖHAR« 28,4,43,3-KK) 
46652 CALL HEHÄRK 21,4; ee 
ara CALL YCHAR« 1. 1.42, 
45530 CHLL VCHRRC1:38,42,23) 
46=8 CALL HEHAR«1.2,64,38> 
4708 CALL HCHARC23,2,64,30) 
4’a1 CALL SOUND 106,306,0) 
4742 CALL SÖLND 109, 209,85 
4743 CALL SOUND« 189,118,0) 
4718 FÜR MM=1 TO 2568 

4724 NEXT MM 

4738 CALL CLEAR 

4735 IF =2 THEN 4737 

47265 GOTO 4746 

4737 IF KK<3 THEN 4758 

4746 IF KK>=3 THEN 4776 

4758 GOTO 1236 

4778 PRINT : oo: 

4771 FOR LL=1 TO 34 

4772 CALL SOLUNDK 18, 7898,05 
4773 NEXT LL 

475A PRINT " 6: N- DE! 


Ausgabe eines Textes durch 
Farbwechsel 


% 


Mit Hilfe der folgenden Routine ist es 
möglich, größere Texte auf einmal auf 
dem Bildschirm des TI-99/4a ohne Ex- 
tended Basic erscheinen zu lassen. Da- 
bei wird vermieden, daß der Text von 
unten durchgeschoben wird. Überdies 
ist dieses Verfahren auch recht schnell. 
100 CALL CLEAR 

110 FOR I=! TO 16 

120 CALL COLOR (11,1) 

130 NEXT I 

140 Print „TEXAS INSTRUMENTS“ 
150 FOR I=1 TO 16 

160 CALL COLOR (12,1) 

170 NEXT I 

Programmbeschreibung: 

110-130 Der gesamte Zeichensatz wird 
auf die Farbe Transparent der Hinter- 
grundfarbe angepaßt. 


35 PRINT "NEUER START J ODER H 
4721 CALL SOUNDE 400, 5000,0,131.8. 509,8 ‚2,0) 
45388 CALL KEYCA.KEY, STATUS > 
4315 IF STATUS=8 THEN 4558 
4328 CALL CLEAR 


> = 140 Der Text wird geprintet, ohne daß 
4235 KK=d i 
424 IF KEY=74 THEN 1284 een Yird, 


150-170 Der gesamte Zeichensatz be- 
kommt wieder die alte Vordergrundfar- 
be Schwarz und die alte Hintergrund- 
farbe Transparent. 


4 END 


L.E.22 22 2 2222222. 


++ Neu +++ Neu +++ Neu +++ Neu +++ Neu +++ Neu +++ Neu +++ Neu +++ Neu ++ 


Jetzt überall 
im 
Zeitschriften- 
handel: 


für Heimcomputer 


Das Softwaremagazin 
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METEOR FH 


TI-99/4A 


Schützen Sie „Andromeda“ 
vor Meteoreinschlägen 


Zum Schutz des Planeten „Andromeda“ 
stehen Ihnen Geschosse zur Verfügung, 
die mit Hilfe manövrierfähiger Ziel- 
scheiben (Drone Targets) auf ihr Ziel 
gerichtet werden. Sobald sie gestartet 
wurden, steuern sie geradlinig das Ziel 
an. Man muß das Target also so ge- 
schickt positionieren, daß das Geschoß 
auf seinem Weg einen Meteor trifft, 
denn sonst wird das Target zerstört - 
und deren Anzahl ist natürlich be- 
grenzt. Eine Spielstufe endet, wenn 
eine bestimmte Anzahl von Meteoren 
erfolgreich abgewehrt wurde. Für übrig- 
gebliebene Drone Targets werden Bo- 
nuspunkte vergeben. Die nächste Spiel- 
stufe wird dann etwas schwieriger. Das 
Spiel endet, wenn ein Meteor beide 
Schichten der Planetenoberfläche 
durchdrungen und das Innere des Pla- 
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neten erreicht hat, die Geschoßbasis 
des Spielers getroffen wurde oder alle 
Targets verbraucht wurden. 
Für den äußersten Notfall gibt es pro 
Spielrunde einen Superzapper, der ei- 
nen Meteor sofort zerstört. 


Zur Steuerung des Targets werden die 
Pfeiltasten benutzt. Für die Geschosse 
und den Superzapper die Tasten „.“ 
und „,‚“, wobei die ‚Alpha-Lock“-Taste 
gedrückt sein muß. 


Bleibt noch zu bemerken, daß die Höhe 
der Punktzahl für einen Treffer davon 
abhängt, in welcher Höhe der Meteor 
getroffen wurde, und das die Geschosse 
um so schneller fliegen, je größer die 
Entfernung zum eigentlichen Ziel ist. 
Beides ist beim Justieren des Ziels zu 
berücksichtigen. 


Das Listing ist im Original-TI-Bild- 
schirmformat gedruckt, so daß jedes 
Zeichen im Listing genau da steht, wo 
es später auch auf dem Bildschirm er- 
scheinen soll. Diese Maßnahme er- 
leichtert die Fehlersuche. 


Be I 
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###%%%%# METEORS #888 888% 
= E 
E = 
* x 
*** (C) BY BENNO BECKER *** 
# = 
*%%*%*  BOLDERBERGWEG 1 *#%%* 
# = 
*%*%%*%* 4000 DUESSELDORF *##*#*%* 
* En 
* = 
E2 * 
1 GOTO 119 

2 RANDOMIZE :: STAGE,SZ=1 :: 
MET=10 :: M$="TARGET OUT OF 
FIRING RANGE!" =: CALL CLEA 
R 

3 ! SCREEN SETTING 


4 CALL COLOR(1,16,1,2,16,7,8 
254, 2,9,1410,.21- 3, 12,115 1 
2,15,1) 

5 FOR C=3 TO 7 :: 
(C,16,1):: NEXT C 
& CALL SCREEN (2) 
7 CALL CHAR (95, "FFFFFFFFFFFF 
FFFF") 

8 .CALL CHAR (35, "00181C3EZE18 
u 

9 CALL 
2848") 
10 CALL CHAR (59, "000001") 

t1 CALL CHAR (60, "1C3C7EFFFEF 
FIFSC") 

12 ! STARS 

13 FOR C=1 TO 30 :: CALL HCH 
AR (23#RND+1,31#RND+1,59):: N 
EXT C 


CALL COLOR 


CHAR (36, "11 3AFC3BTEAY 


14 FOR C=105 TO 111 :: READ 
At :: CALL CHAR(C,A$)z2: NEXT 
C 


15 DATA EOFFFFFFFFFFFFFF „60F 
OFBFFFFFFFFFF ,00000087FFFFFF 
FF „OO00000080F OFEFF „00000000 
VO00000FF „000000070FÖF3FFF ‚00 
VO0008080B0LOFF 
16 FOR C=96 TO 97 :: READ A$ 
:: CALL CHAR(C,A$)s: NEXT C 
17 DATA 00202123277FFFFF „000 
484C4EA4FEFFFF 


18 FOR C=112 TO 120 :: READ 
AF := CALL CHAR(C,A#f)z:: NEXT 
C 


19 DATA 000000000010F8FF „404 
040636363E3FF ,000000000000F2 
FF ,00000000010307FF ‚80808080 
BOCOFZFF ,0002020206060FFF 

20 DATA 000000000107ÖFFF „000 
S1ETCFEFEFFFF „O103070F1F3FFF 
FR 
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21 CALL HCHAR(24,1,95,32) 
22 CALL HCHAR (24,8,43,6):: C 
ALL HCHAR (24,22,43,6) 


23 FOR C=1 TO 7 :: CALL HCHA 
R(23,C0,104+C) ss. NEXT C 
24 RESTORE 25 :: FOR C=1 TO 


8 2: READ CHR :: CALL HCHAR ( 
23,C0+7,CHR)z: NEXT C 

25 DATA 109,110,107,107,108, 
109,109,109 


26 FOR C=16& TO 17 =: CALL HC 
HAR(Z3,C,C+80) 2: NEXT C 
27 FOR C=18 TO 30 :: READ CH 


R 2: CALL HCHAR (23,C,CHR):: 
NEXT C 

28 DATA 109,112,109,113,111, 
112,114,115,116,117,118,119, 
120 

29 KR=8 

30 DEF ZV=-(170-PV)/2 

31 DEF SV=(PH-125)72 

32 GOSUB 77 :: GOSUB 82 :: I 
F PL=0 THEN GOSUB 108 :: DIS 
PLAY AT(1,1)SIZE (15) : "SCORE 
: "3 POINTS 


33 DISPLAY AT(1,279):2"%" sı D 
ISFLAY AT(2,1):"STAGE :";35TA 
GE 


34 ! 


TARGET CONTROL 


35 CALL KEY(0,K,S):: IF 8=0 
THEN V,H=0 

36 IF K=69 THEN V=-20-3#STAG 
E 

37 IF K=88 THEN V=20+3%#STAGE 
38 IF K=83 THEN H=-20-3#STAG 
E 

39 IF K=68 THEN H=20+3*STAGE 
40 IF K=46 THEN V,H=0 :: GOT 
0 48 

41 IF K=44 THEN IF SZ THEN 6 
DSUB 116 

42 IF K=80 THEN FAUSE=1 


43 CALL MOTION(#1,V,H)z: CAL 
L SOUND (-1000,-7,29) 

44 ‘IMPACT WITH GROUND TEST 
45 CALL POSITION(#3,X,Y)ss I 
F X<180 THEN 35 ELSE V,H=0 : 
: GOSUB 60 :: GOSUR 82 
46 GOTO 35 

47 ‘ FIRE MISSILE 

48 CALL MOTION(#1,0,0):: 
L POSITION (#1,PV,PH) 

49 IF (PV<175)%*(FV>10O)*(FH<2 
55)*#(PH>5) THEN CALL MOTION (# 
2,ZV-Z2V/2,5V-SV/2)ELSE DISFL 
AY AT(10,5):M$ :: DISPLAY AT 
(11,1)2"" 33 GOTO 43 

50 IF CLR=4 THEN CALL MOTION 
(#3, MSV+10,MSH) 

51 CALL COLOR (#2,9) 


CAL. 
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52 CALL SOUND (-900,110,15,11' 
2,15,1000,29,-8,10) 

53 CALL DISTANCE (#1,#2,D):: 
IF D<60 THEN CALL DELSPRITE ( 


#1,#2)22 GOSUB 113 :: GOSUB 
77 2»: GOSUB 108 :: GOTO 35 
54 CALL FOSITION(#3,X,Y)s: I 


.F X>180 THEN CALL DELSPRITE ( 


#1,#2)2: GOSUB 50 :: GOSUB 7 
7 »: GOSUB 82 .:: GOSUB 108 : 
ı V,H=0 3: GOTO 35 

55 CALL DISTANCE (#2,#3,Di):: 

IF D1>85 THEN 53 

55 CALL MOTION (#2,0,0):: 
L DELSFRITE (#3) :: 
RN(#2,36):: 
NEXT C-%53 
) 

57 FOR C=0 TO 30 STEP 4 sı CE 
ALL SOUND(100,-7,C):: NEXT C 
58 CNT=CNT+1 := POINTS=POINT 


DAL 
CALL FATTE 

FOR C=1 TO 30 :: 
CALL DELSFRITE (#2 


S+(190-X) 

59 DISPLAY AT(1,8)SIZE(15):P 
OINTS :: GOSUB 77 :: GOSUB 8 
2 :: GOTO 35 

60 ! IMPACT 


61 CALL MOTION(#1,0,0) 

62 G=Y/8+1 :: IF 6>32 THEN C 

ALL DELSFRITE(#3):: GOSUB 77 
:: GOSUB 82 :: RETURN 

63 CALL DELSPRITE (#3) :: 
GCHAR (23,6,6C):: 

HEN 71 

64 IF 615.5 OR 

67 

65 FOR C=3 TO 10 :: CALL COL 

OR(9,C,C+3):: CALL SOUND (-40 

0,100*C,0,1000*C,0,1200*C,0) 
:2 NEXT C z: CALL HCHAR(23,1 

6,32,2) 

66 GOTO 100 

67 CALL HCHAR (23,6,32) 

68 FOR C=28 TO 5 STEP -2 :: 

CALL. SOUND (-500,250,30,500,3 

0,1000,30,-8,31-C):: NEXT C 

69 IF PAT=60 THEN IF (G>=3)%* 
(G<=30) THEN CALL HCHAR (23,6- 

2,32,5):: IF G>13 AND G<20 T 

HEN 65 ELSE G0TO 72 

70 RETURN 

71 CALL GCHAR (24,6,60):: 

GC=32 THEN 100 

72 CALL HCHAR(24,6,32) 

73 FOR C=28 TO 5 STEP -2 

CALL SOUND (-500,250,30,500,3 

0,1000,30,-8,31-C)s: NEXT C 

74 IF (Gi=3)+(6>=30)THEN RET 

URN 

75 CALL HCHAR (24,6-2,32,5) 

76 FOR C=30 TO 0 STEP -2 :: 


CALL. 
IF 6C=32 T 


G6>17.5 THEN 


IF 


Lo I. 
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CALL SOUND (-500,250,25,252,2 

5, (3000+100*C) „30,-8, 30-0) :: 
NEXT C z: RETURN 

77 ! NEW MISSILE 

78 CALL SPRITE(#2,42,6,190,1 

25) 

77 FOR C=190 TO 170 STEP -1 

80 CALL LOCATE(#2,0,125):: N 

EXT C 

81 RETURN 

82 ! NEW METEOR 

83 IF PAUSE THEN CALL KEY(O, 

K,S):: IF S=0 THEN 83 ELSE F 


AUSE=O 

84 MZ=5 »:: MP=250#RND+?2 :: M 
SV=((5+STAGE) *+RND) +5+STAGE : 
® MSH=(&4*RND)-3 :: PAT=35 :: 
CLR=4 

85 IF RND<STAGE/10O THEN MZ=R 

ND#100 :: FAT=40 3: CLR=15 : 
ı GOTO 87 > 

85 IF RND<STAGE/& THEN MZ=RN 

D*+80+20 :: MSV=5#+RND+3 ::ı MS 

H=10#*RND-5 :: CLR=4 :: GOTO 


89 
87 IF MP£100 THEN MSH=MSH+3 

88 IF MP>150 THEN MSH=MSH-= 
87 IF CNT<MET THEN CALL SPRI 
TE(#3,FAT,CLR,MZ,MP,MSV,MSH) 
:: RETURN 

90 DISFLAY AT (10,3): "ATTACK 

WAVE ";STAGE; "COMFLETED" :: 
DISFLAY AT(12,5):"BONUS FOIN 

T5 9" 

91 FOR C=8 TO 28 

92 CALL GCHAR (24,C,6C):: IF 

6C=43 THEN BONUS=BONUS+ (100% 

STAGE)::» DISFLAY AT(12,18):B 

ONUS zz CALL SOUND (-10,1000, 

O)z: CALL HCHAR (24,C0,95) 

FOR DEL=1 TO 30 :: NEXT D 

EL :: IF C=14 THEN C=21, 

NEXT C 

FOR C=1 TO 500 :: NEXT C 
:» FOINTS=FOINTS+BONUS :: BO 
NUS=0 »: STAGE=STAGE+1 :: DI 

SFLAY AT(10,1):2"" =: DISPLAY 
ATZE 

96 DISFLAY AT(1,8):FOINTS 

97 FL,SZ=1 :: CNT=Ö :: MET=1 

Ö+2*STAGE :: GOTO 21 

98 RETURN 

97 ! END OF GAME 

100 CALL DELSPRITE (ALL) 

101 FOR C=1 TO &4 :: FOR I=-3 
TO -1 2: CALL SOUND(100,1,0 
)z: CALL SCREEN(C+I+10):: NE 
KIT NEXT 

102 FOR C=3 TO 8 :: 

OR(C,7, 1313 


CALL COLL 
NEXT C :: CALL M 
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Erscheinungsweise: 
pro ST 
HOMECOMPUTER ist Anfang des Monats 


Urheberreicht: 
Alle in HOMECOMPUTER regnen Bei- 
träge sind urheberrechtlich geschützt. All 


le Rechte, 
auch 


Bu u Velen air os vane Minh: 


tern erstellt. 


, vorbehalten 
R jeder Art (Fototkopien, Microfilm, 
a in Datenverarbeitungsan 
bedürlen der schriftichen Genetenigunn & ver 


P: ; ;® 
r ‚ ı 120 CALL CHAR (42,"0018245A5A |! 
ı DTION(#3,0,0) ® : 2418") ı® 
103 aaa AT (10,3): "YOUR G ı 121 CALL CHAR(37,"EOBOEOZEE2 ! 
® : AME IS OVER!!!" 33 DISPLAY A ® : 04080E") ı@ 
' T(14,3)2"PRESS R TO REPLAY" ı 122 CALL CLEAR :: FRINT "PRE ı 
® : .: DISPLAY AT(16,3):"PRESS 8 @ : SS ‘Y‘ FOR INSTRUCTIONS FRE ı @® 
ı TO STOP" ı SS ANY KEY TO START GAME" N 
® : 104 CALL KEY(0,K,S):: IF S=0 @ ! 123 CALL KEY(0,K,S)s: IF S=O !@ 
ı THEN 104 '  THEN 123 ELSE IF K<>89 THEN ! 
'® : 105 IF K=82 THEN CALL CLEAR e; 2 '® 
“ 1 s» CALL DELSFRITE(ALL):z: RUN ı 124 PRINT "DEFEND YOUR PLANE ! 
ea: 2 @ | T AGAINST FALLING METEORS! ı @ 
" 3.106 IF K=83 THEN CALL CLEAR DL 
?@ ! :ı STOP o ı 125 PRINT :. »"FIRE A MISSILE '@ 
" 1 107 GOTO 104 ı  (#*) AND IT WILL HEAD FOR ı 
"@ | 108 ! NEW TARGET | YOUR DRONE TARGET (+). " ' 
= + 109 CALL GCHAR(24,KR,6C):z:.1 ® : 126 FRINT "MAKE SURE IT WILL :®@ 
ı F 6C=43 THEN CALL SFRITE (#1, ı HITA METEOR ON ITS WAY ! 
u 43,16,180, (KR-1)*8,-80,0):: ®© : AS DRONE TARGETS HIT BY MI: ®@ 
" CALL HCHAR (24, KR, 95):: RETUR ı SSILES ARE LOST!" = 
“o:\ © !: 127 PRINT :"USE ARROW KEYS T ı@® 
' 110 KR=KR+1 :: IF KR=14 THEN ı DO MOVE DRONETARGET":"USE '.' 
®: KR=22 ® :ı TO FIRE MISSILES." ı ® 
ı 111 IF KR=28 THEN 100 ı 128 PRINT "USE ’,‘ TO ACTIVA ı 
® : 112 GOTO 109 @: TE THE SUPERZAFFER.":"IT |! @ 
- 4 113 ! SOUND OF TARGET HIT ! WILL DESTROY ANY METEOR - O 
@ :ı 114 FOR C=0 TO 20 STEPS :: e | NCE PER STAGE." :® 
‚ EALL SOUND(-100,-6,C):: NEXT ı 129 PRINT 2"‘%INDICATES ITS ı 
i  C 3: RETURN ı AVAILABILI-TY.": : 
® : 115 ! SUPERZAFPER @ | 130 INPUT "PRESS ’ENTER' TO | ®@ 
ı 116 CALL MOTION(#1,0,0):: V, ' CONTINUE":A$ 
@ !: H=0 @; !31 CALL CLEAR '® 
' 117 CALL DELSFRITE(#3):2: FÜR ı 132 PRINT "FOR A PAUSE FRESS ı! 
@! C=3 TO 7 :: CALL SCREEN(C): oe; _F’ AND THE NEXT METEOR W I @ 
4 = CALL SOUND (-100,110,30,110 ı ILL WAIT FOR ANY KEY TO BE ı 
"| ‚30,4000+100*C,29,-8,30-4*C) ® ı ‚PRESSED BEFORE IT AFPEARS ı o 
ı 2: NEXT C u Er Be ' 
e; 118 CALL SCREEN(2):: DISPLAY o ı 133 PRINT "MAKE SURE THAT ’A '@ 
ı  AT(1,24)2"" 23 SZ=O :: GOSU ‚ LFHA-LOCK” 15 DOWN!" N 
ı B 82 :: RETURN ' 134 PRINT = = :: INPUT "PRES ! 
®: 19 cAı CHAR (43, "0042662418 | ®: S ENTER’ TO CONTINUE":A$ ı@ 
1.18") 3 135 GOTO 2 I 
# » ® 
' s \ 
2 
U 
: Impressum Iandjns- Einzel- und Bahnhofsbuchhandel) Dies Dedaneegin anfordem. De De I ae ne 
sowie Österreich und Schweiz: Bezeichnungen frei von Schutzrechten sind. 
Tone Vet 244 Wehr Fisher ben -Straße 20 ; 
Telefon 0 61 21 / 26 60 Yeual 3 Wochen vor Erscheinungstermin. Ei 6,- DM 


Autoren, na 

-- un] nimmt un und Software zur 

Scien keine andere Veran rung sein, 
wir davon aus, daß Sie mit einem 


ri von 120,- DM I abgedruckter Seite 
im Heft einverstanden - 


Titelblatt: 
Werbeatelier H. Kästle, Eschwege 
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INFRA 


TI - 99/4a 


Der Abwasserkanal in Ihrer Stadt muß 
repariert werden. Sie als Kanalarbeiter 
haben die Aufgabe, in zwei Etagen des 
Abwassersystems insgesamt 20 Repa- 
raturen vorzunehmen. Sind alle Lecks 


geschlossen, können Sie wieder an die 
Oberfläche steigen. Für jede Reparatur 
benötigen Sie einen Hammer und ein 
Stück Rohr, die auf den einzelnen Gän- 
gen des Abwassersystems liegen. Wäh- 


rend der Reparatur treten aber auch 
kleine Tücken auf, die sich in Form von 
angreifenden Krokodilen, Giftwolken 
und Wellen zeigen. Es ist also allergröß- 
te Vorsicht geboten. Auch die Licht- 
stärke unterhalb der Erde wird ständig 
geringer, kann jedoch durch Ansprin- 
gen des Lichtkastens in Höhe der Was- 
serleitung wieder verstärkt werden. 
Wenn das Licht vollkommen verlo- 
schen ist, ist auch der Kanalarbeiter 
nicht mehr lebensfähig. Pro Spiel hat 
man aber drei Leben. 

Anzeigen: 

HAM: Anzahl der Hämmer 
ROHR: Anzahl der Rohre 

REPA 1: Reparaturen auf Etage | 
REPA 2: Reparaturen auf Etage 2 
Lichtstärkeanzeige ist rechts unten im 
Bildschirm 


Gesteuert wird mit Joystick! 


Listing nächste Seite 


Hochleistungs-Typenraddrucker im unteren 


Unter der Vielzahl angebotener Typen- 
raddrucker im unteren Preisbereich 
handelt es sich bei dem 20 Zeichen/s 
schnellen DP 20 von Dataproducts um 
etwas Besonderes. Er bietet dem An- 
wender bemerkenswerte Vorteile zu ei- 
nem günstigen Preis. 


Er ist besonders anwenderfreundlich 
konzipiert und neueste ergonomische 
Erkenntnisse sind im DP 20 verwirk- 
licht. Das Bedienfeld ermöglicht eine 
vorbildliche optische Kontrolle und 
bietet den Vorteil, eine Vielzahl von 
Funktionen über Tastendruck abzuru- 
fen. 


Zum perfekten Arbeitsplatzdrucker be- 
stimmt ihn das ansprechende Design 
und die ergonomische Konzeption so- 
wie der erstaunlich niedrige Geräusch- 
pegel von weniger als 55 dB (A). 


Mit dem DP 20 gelingt jeder Compu- 
terausdruck zu einem lupenreinen 
Schmuckstück. Dafür steht die sprich- 
wörtliche Dataproducts-Qualität, die 
auf mehr als 20jährige Erfahrung im 
Druckermarkt aufbaut. ; 


Merkmale und Eigenschaften 
Besonders ausführliches Bedienfeld mit 
Funktionen wie: 
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Bereich! 


% Formularlängenwahl in mm-Anga- 
be 

% Optische Anzeige von Funktionsar- 
ten 

%* Opt. Fehlermeldung zur leichten 
Fehlererkennung 

Original plus 3 Kopien, 2 KB Puffer, 

serielles oder paralleles Interface, Pla- 

stiktypenrad, Mylar-Farbbandkassette, 

Diablo-630 kompatible Textverarbei- 

tung. 

Einfache Handhabung bei der Papier- 

zufuhr sowie beim Typenradwechsel, 


da die wichtigsten Bedienelemente grün 

gekennzeichnet sind. 

Optionen: Bidirektionaler Traktor, au- 
tomatischer Einzelblattein- 
zug mit einer und mit zwei 
Kassetten. 

Im Lieferumfang sind Farbband, Pla- 

stiktypenrad und Papierführung ent- 

halten. Der Preis für'die Grundversion 
beträgt ca. 2000,—- DM zzgl. MwSt. 

Dataproducts GmbH, Frankfurter Str. 

172-176, 6078 Neu-Isenburg, Tel. 

061 02 / 30 10. 
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164 1 KKINFRAKKKKKKKKHRK 

178 DIM LC2,29,R2C2,2>3.RH( 2,29, 5C$( 39, 5PC3),SFC3 3, L8(2) 

138 CALL CLEAR :: CALL MAGNIFYC3P:: CALL SCREENC6>:: GOTO 240 

134 M=-598 :: FOR Il=1 TO 5 :: RESTORE 236 :: Mebl+Zı1o 

288 FOR I=1 TO 13 :: READ Fi :: CALL SOUNDCM.F1.8,F1X2,8,F1X3:85:: CALL KEYCL,KT 
".KrYb:: IF KT=18 THEN 224 

218 NEXT I :: NEXT II :: GOTO 198 

228 RETURN 

238 DATA 336.349,392, 446,494, 449,494 ,587 ,494 , 494 , 659, 622,587 

244 DEF Z=INTERNDKZ+1 ) 

256 DATA 11,14,17,25,6.28,5,14,12,20, 25,23 

264 RESTORE 256 :: FOR I=1 TO 2 :: FOR II=1 TO 2 :: READ D1,02,D3 :: L£I,11)=eDbi 

:: RZ&£1»II5=D2 .:: RHCI„IIS=Db3 :: NEXT II :: NEXT I 

27a SPC32,SFl3)=5 :: SPC23=7 :: SPC1)=3 :: SFCI1J=15 :: SFLZ)I=4 

286 EI=8 

SC$C 1 >="OLIEFFIS3ELESCSCHESEFEBE1C2424EC"RRPTSC "BO" ,329:: CALL CHAR« 149, 5C$% 1 


Sc$( 2 3="3073FF687C78313A7C7C7E7038242436" ERPT$( "0" 32) 
SL$t 39="183CTET7EFE3CHHEDFFFETEFE3CZHZIET" RRPTSC "BO" 32) 
EALL CHARC 126, RPT$C"@" ,15 9%" 3060D1A12356D4LDEBBHAHHHBHHHALHF AFE7LC444BSEHBILLE 


a CALL CHAR« 132, "GEBR 6396DEFSFEFL3FIFORG4BE 193364EBI0SB4HABHAAAAAF 
Se, 


"a 
48 DATA BRB2B3BEBCH 


68 DATA BaB1F?FFFFFFFFFF ,B1GBSFFFFFFFFFFF : 838188EFEFEFETET : DFDFDFORFDFDFD, 42427 
E4247427E42,8, FEFCFEFEFCFEFCFC, FOFOFBFOFOFOFOF 


:: READ DS :: 
3sA IF El=6 THEN 1558 
4ah DATA EB7836181C0E9703, 006038 1397.060301 . 331CHLAEH79301 , SESALHLHEHEHTEE. FB1F1C 
ACBFRER?7E? 636331 190CHB0201 . FFFFFFERBEGEAT7O3 
41M DATA 32181C060E869703,8381C1CHEBEH7EOF ‚, HAB50D 150485, FB783C1CHEBEA7RA3,FFFFFF 6 
141430287 668E06 , BAOCLCS2CCS2CC, 10183830 7065BE A 
4265 DATA 8181636307865GEA0  BHE7SSE7ZEBES. B00212725269, 16183830796BE 90 , FFFFFFEACACH 
546, 2936151560 LACH606 , FFFFFFORBGR 10397 . A7BELLCIC3S7EO7EE 
436 DATA CHCasoHanaann 13. 3C4233A1A193423C, BR1A237ZZZR2, A30101H0HA3H3AL  HA2ZASERE 
2326 , 66610D9151DD, 664810305140, 88445CDL508LC  B3065658CAC15353 
444 bATA CHEGEGSACHLRSERL , B1B3030EAEALL 1, SF3FFFEECHLHSBE, 1CIC3C3EEE5EC3B3 8393 
riaisi 
456 DATA BOAGSGSHSALHLHL  EGEBERGA3H3B3A13, 181SACHLACHEAERZ3, SACHNAEH7R3Z1SAT, BERT 
43a1i1, BERBAASALBEhE3 
464 DATA 331CACH6570301 .COEBFOFSECEE7331.38181CACHE96HT7B3; 30181SALACA5H7B3 
a ELEAR :: RESTORE 489 :: FOR I=48 TO 86 :: READ D$ :: CALL CHARCI,D$SI:: 
NEXT I 
45A DATA 1.6.2.6,3.6.6,3,7:5,8,7,9,5,18,3,15,5,16.5,17,6,18,6, 19, 7, 22,7,23, 7:24, 
4.,28.5,29,7 
435 DATA 38,5>31,3,32,3 
SsoA CALL DELSPRITECALL>:: CALL CLEAR :: CALL COLOR«1,6,6,12,5,2,18.15,2,11,9,.23: 
: FÜR I=2 TO 93 :: CALL COLORCT:9,2>:: NEXT I 
514 RESTORE 458 
528 FÜR I=1 TO 21 :: RERD 5:4 :: CALL VCHARCS-WS,111,W>:: NEXT I 
53A FOR I=2 TO 36 STEP 7 :: CALL HEHARC?-I,110>:: NEXT I 
544 CALL HCHARCB,1,116,544 5: : CALL HCHARC9,1,118,448) 
5a FOR I=15 TO 22 STEP 7 :: FOR Il=1 TO 31 STEP 2 :: CALL HCHARCI-II:1219:: CAL 
L HEHARK I, II+1.1289:: NEXT II :: NEXT I 
Sera CALL HCHARK1B,1,126:32>:: CALL HCHAR«17,1,126,323 
Sa DISPLAY ATC11.BDSIZEC 143: "PrTt+.3337=HKt" ©: DISPLAY ATC12,83SIZEC 143: "ORU), 
“ttt : >ILM" 
sea DISPLAY ATC13,89SIZEC 145: "tKB+-0.34; FJ3N" ©: DISPLAY ATC14,8)SIZEL 143: "tt Ur 
AYLaisttü" 
59a CALL VCHAR“15,5,117,75:: DISPLAY ATC18,9)SIZEL 199: "WISSIACLDEF" :: GÜSUB 198 
rad LI=106 :: AS=3 :: R1,R2:RO-HA,PU:BI=B :: CALL CHARSET 
Bla CALL HCHARC11,1,118,1285:: CALL VCHARC15,5,118,75:: CALL HCHARC1S,S,1213:: 6 
ALL HCHAR« 17,5,126>9:: CALL HCHARC18,1,118,32> 
r28 CALL CHARSET :: CALL CHARC61,"BC1EFF143414RC" ):: CALL SCREENK6I:: CALL COLOR 
1.6:6,12,5,.2,18,15.2,11,9,2) 
534 CALL HCHAR«C1,25,61,3) 
a DISPLAY ATC23.19: "REPA1: REPRE: ROHR: " 
uN: 
":: GOSUB 1476 
658 CALL VCHARCS,11,117,79:: CALL YCHARC15,29,117,7>5:: CALL DELSPRITECALL> 
SrA CALL CHAR« 144,508 199: : CALL SPRITEC#1.140,11,43,236) 
55h FÜR I=235 TO 81 STEP -4 :: CALL LOCATEC#1,43,19:: CALL SOUNDC-18,119.9.600,4 
.304,3,-5,0>:: NEXT I 
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rag CALL CHARC144,5CHt 339: : FOR I=e43 TO 97 STEP 3 :: CALL LOCATEC#1, 1,819: : CALL 
SOUHLE -16., 1086,68, 906.,0,389,0,-4,@5:: NEAT I 

ran CALL CHARCI4E,SCHZID:: FOR I=s81 TO 153 STEF 4 :: CALL LOCATEC#1,937, To: CAL 
I. SOUNDE -18, 116,8,606,4.,3809,3,-5,B3:: NEAT I 

rıa CALL CHAR“ 148,568 355: : FOR 1I=37 TO 153 re 4 :: CALL LOEATE#1,.1,1535:: CA 

LI SüUND« -18, 1068 ,6.906,8, Ban, B.-4, 09: : NEAT 

26 CALL CHARKC14B,SCHLZID:: FOR I=153 TO 237 STEP 4 :: CALL LOCATEC#1,153, I9:: C 

All SOUNDE -18, 118,9, 608, 4,3988, 3,-5, 89: : HEAT I 

736 CALL CHARE148,SCSE1 95:5: RP=1 :: LI=198 :: GOSUE 1498 

4a CALL HEHARKS,11,116. 169: CALL YCHARE9,11.1198,69:: CALL YCHARC9,25,118,69:: 

LALL HCHAR«“ 19.6.126,23)5 

‚56 CALL HCHAR«13,17,118,13>5:: CALL HÖHARE15,5,1219:: CALL HEHARE 15,28, 1205:: CA 

IL YCHARE 16,5,118,69:: CALL VCHAR«C16,28.118,6> 

rea CALL HCHAR«17,5.126,235:: CALL HCHAR« 28,12,118,13> 

Fra CALL DELSFRITEC#2,#35:: RANDOMIZE 

rsa IF Ri+rR2=28 THEN IF RNb&3>Z THEN LSC15=2 :: CALL YVEHRRSSSLEL,LSE193: 117,79 

aA IF RND#2>.3 THEN LSC29=Z :: CALL YCHARC15.LC2,LSC293, 117,79 

sa5 FÜR I=1 TO 2 :: IF RNDX3>1.9 THEN IF RHND&Z<1 THEN CALL HEHARS 3+IK7,RZCI,Z>3, 1 
27»: GOTD 828 ELSE 816 ELSE 826 

ia IF CRi= > AHD I=1>0RCR2=18 AND I=Z’THEN BZB ELSE SY=Z :: CALL HCHAR« 3+1%7 RZ 

> 5,1235: : CALL HCHAR«3+1%7 ,RZU I, SY5+1, 1169: : CALL HEHARC3+ 187 RZU I, SVY5r2,122 


Aza IF RND&2<1 THEN IF Z=1 THEN CALL HEHARCE+IKFSEHET: 2,1195: : GOTO 848 ELSE 82 
Ah EISE 948 

234 Sy=Z :: CALL HCHARKE+I#7 EHE IT, SW, 1259: : CALL HEHARE S+1X7RHC I, SYo+1, 1245 
a4n SPC=INTCRNDK3+1):: CALL SPRITEC#I+1.,124+5PC#4,SFCSPC >. 43+1%56 : S0+C Z-1 3108,08 


ra CALL COINCCALL-FG>:: IF FG THEN 1338 ELSE CALL JOYSTE1-T.YD:: CALL KEYCISKT; 
Kys: CALL MÖTIONC#1.8,T> 
sa IF TX>8 THEN RP=1.5+5GHC 198.5 :: CALL CHAR 148, SC$CRP>5:: CALL SOLUNDE 288, 11 
4,n,65060, 4,800, 3, 5,8) ; 
54 IF KT=1$ THEN 1154 
aa CALL PÜSITIONC#1,52,555:: IF SS<1leE OR SS>2468 THEN 1388 
s1a IF ‘=-4 THEN 394 ELSE IF Y=4 THEN 18990 
=a GCALL COINGEALL,FGD:: IF FG THEN 1338 
3a CALL GCHAR« 13+7KSGNd 82-37 3, INTECSS+SHRP WB YIGG): : CALL GEHAR« 13+7K3GHE 52-3 
3, INTLCSS+HL3+RFOrE GGF ie: IF GGF+GFG>236 THEN 356 
| B=a4+1 :: IF Q>=25 THEN 860 ELSE 5768 
A CALL MÖTIOHC#1.9,95:: CALL HEHARC 13+7KSGHE 52-97 5, INTCCSS+HSHRF 378 3-1:118, 4) 
a IF GGF+GFG>244 THEN RO=RO+1l ELSE HA=HA+1 
aA CALL SOUNDE -306,50,0,200.0.-4,65 
FU=PLI+2BXZ :: GÜOSUE 1470 :: Deß+ld :: GOTO 948 
1 1 MACH u 
4 IF 52=153 THEN 940 
SALL GEHAR« 15, INTCCSS S+5+RF WE 3,GFG>:: GALL GCHARE 15, INTECSS+13+RP 978, GGF >: 
GGF+GFG>233 THEN 946 
aza CALL MOTIONC#1,8:0>:: CALL CHAR«C 148, SCH 399: CALL LOCATEC#1,115.1L5°23#120- 
>:: CALL MOTIONC#1L,-N,05 
Aa CALL COINCKALL,FG>:: IF FG THEN 1330 ELSE CALL JOYSTEL,TıYDes IF Y<>-4 THEN 


IF Y=-4 THEN CALL SOUND -206. 1800.60, 980, 
a CALL MÖTIONC#L,-Y.B>:: CALL FOSITIONCHL. 82.8 S) 


19650 CALL MOTIONC#1:0,09:: CALL LOCATEC#1,52.55%: Rei :: CALL CHAR 14A,SCHEL>D 
:: Dei+1d :: GOTO 340 

1a7A Q=D+S :: IF D>=25 THEN GOSUB 1a. :: GOTD 1836 ELSE 18938 

1a54 9=0-25 :: LI=LI-2.5 :: GOSUB 1496 :: IF LI<=G THEN 1336 ELSE RETURN 

1aaG ! NACH DEEN 

1164 IF 52=37 ANb Ri+R2zza THEN 94% 

111A CALL GCHARL 13+FESGENE SZ-37 9, INTEL CSS+S+RP IF EI. GFG>I: : CALL GEHAÄR«C 13+7KSGHE 52-9 
7», INTCCSS+13+RF 378 3, GGF >:: IF GGF+GFG>235 THEN 946 

i112A GALL MOTIONC#1,8,85:: CALL CHARG 148, 5C8C 399: : CALL LOCATEL #1,52. 157 SGHe 52-9 
7 9+1 13128-39-5GNE 57-97 445 3: : CALL MOTIONG #1. -7,95 

1134 CALL COIHNCCALL.FG>:: IF FG THEN 1338 ELSE CALL JOWSTC1,T,Y3:: IF Y<>4 THEN 
Y = A 

1146 IF Y=4 THEH CALL SOUNDE -Zu6, 1006, 6, 9606,0,250.0,-4,8) 

1154 CALL MOTIONCHL,-Y:B 9: : CALL FOSITIONC#1.52.55>:: IF 822115 ANHb 52397 THEN 1 
1i6A ELSE IF 52457 THEN 14468 ELSE 1176 . 
1154 CALL MOTIOHE#1,9,05:: 8Z=97 :: CALL LOCATEC#1,82:55%:: Rf=l :: CALL CHARK 14 
A,SC$E1>I:: Q=eß+ld :: GOTO 946 

1178 0=9+5 :: IF Q0>=25 THEN GOSUB 1838 :: GOTO 11348 ELSE 1138 

1184 CALL MOTIOHNC#1.9,05:: CALL FOSITIONC#1,52,55> 
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113A IF ©RF=1 AHb 55<44 Hör EF=SZ AND SS>212 ITHEN 344 
12AaA CALL MOTIOHC#1,8,85:: FOR I=s1 TO 12 :: =52-2 :: 55=55+SGHCRP-1.5>:: CALL 
LOEATEE #1.52:,555: : CALL SOUND -208,4aa+ 420. > : NEXT I 
1210 = :: LI=LI-5 :: IF LI<A THEN LI=A 
1724 GOSUB 1436 
123 a CALL GCEHARR 1AH+FESCHE SZ-73 9: INTCESSHSHRF FED, GFG >: : CALL GEHARE 18+7KSCGNE S 52-7 
=, INTLCSS+13+RP 978 3. GGF >: :. IF GGF+GFG=252 THEN 1256 
1245 IF GGF=117 OR GFG=117 THEN 1236 ELSE» IF GFG+GGF=253 THEN LI=168 :: GOSUB 14 
34 :: PUu=Pl4+54 :: GOTO 1278 
1754 IF HA=a OR Rü=G THEN 1234 ELSE IF 52=73 THEN Ri=Ri+i1 ELSE RZeRe+l 
12854 Rü=Rü-1 :: HA=HA-1 :: Fu=sPU+7a+20#Z 
127Aa CALL SOUNDE -ZaR, 1909.0.119,3:3389,2,-3,85:: GOSUB 1478 :: CALL HEHAR« 19+7%56G 
Hi SZ-73 54 INTEL CE SS+S+RF I2 3-2, 126,6) 
125A IF LI{=G THEN 1338 
1236 FOR I=s1 TO 12 :: $Z=52+2 :: 55=55+5GNCRP-1.5>5:: CALL LOCATER #1,52,55>5:: CAL 
SOUNDE -288.650-1#20,19:: NEXT I :: Qen+5 :: GOTO Ada 
A !BILDWECHSEL 
‚8,85:: IF RF=1 THEN CALL LOCATEX #1,5 ‚236 JELSE FALL LOCATET # 
>16) 
ı GHTl 74h 
IEHDE 
EALL. Mi STIONC#1.8,8>:: CALL HEHÄR“ 1. 25-R5, 323°: u! 
BATA &; ‚659.,523.440,2.5923.523,923:.2:.699,494,392, ‚494,494, 2,587.,440,349 
I DATA 2:.523:.523:523,1,494, 392,494, 2,5323; 923,3923:: ‚557 :587 »1:923. 392.659 
4 RESTÜRE 1356 :: FOR I=1 TO 18 :: REAb BD, F1;>F2,F3 :: CALL SOUNDE SBArD, F1,8,F 
F3,8>:: NEXT I 
A RESTORE 1366 :: FOR I=s1 TO 5 :: REAb D»F1:F2,F3 :: CALL SOUND SBRZD,F1:8,F2 
‚Aa»:: NEXT I 
e1= AS>8 THEN 550 
M=-568 .:: Für II=1 TO 5 :: RESTORE 236 :: M=M+218 
A FÜR I=1 TO 13 :: DISPLAY ATC18,6)5IZEC 167: "GAME DMYER" :: REAb Fi 
SDUHDE M.F1:8,F1#2:.0,F1#3,0: : CALL KEYEI.KT.Kr>:: IF KT=138 THEN 1438 
A LISPLAY ATi 10,6 >5IZER 163: " " :: NEXT I :: NEXT II :: GOTO 14 


CALL BELSFRITECALLD:: GOTO 476 
I GESCHAFFT 
58 CALL MOTIONC#1,8,05:: DISPLAY ATC18.15:" DU HAST ES GESCHAFFT UND WIFES 
T ZUM KANALMEISTER BEFÜERBERT" 
1454 GOSUB 196 :: CALL DELSPRITECALL>:: GOTO 476 
‚1478 DISFLAY ATC23. FISIZEL3H:RI :: DISPLAY ATC23,17>SIZEC37:RZ 
14#4 DISPLAY ATi 23,26 35IZEL 33:RO :: DISPLAY ATC24.79SIZEC3>:HA :: DISPLAY ATC1,1 
1>55TZEC 65: Pl :: RETURM 
1424 IF LI=166 THEN CALL HEHARS 24,18, 112,109: : GOTO 1548 
15465 eu Zw T0 3 :: IF INTCELI1B>=L1710-1%.25 THEN LC=112+1 :: GOTO 1528 
1514 NET 
1576 IF LI=8 THEN 1538 ELSE CALL HEHARS 24, 15+1NTECLI-1 2710» LC9 
1938 IF LI<38 THEN CALL HEHAR« 24.18+L1/18, 1169 
1544 RETURN 
1559 FRINT "SPIELERLAEUTERUNG: ":;: "DU MUSST 28 LECKS IN EINER" 
15668 PRINT :"UASSERLEITUNG REFARIEREN !":5:"FUER JEDE REPARATUR " 
57a FRINT : "BRAUCHST DU EINEN .HAMMER UND": 5; : "EIN RÖHRSTUECK,DIESE LIEGEN" 
158M PRINT :"IN DEN GAENGEN. IN EDER" :;: "ETAGE SIND 18 LECKS. HAST DU" 
1534 PRINT : "ALLE 26 REPARIERT KANNST DU": ;: "WIEDER AH DIE ÖBERFLAECHE. " 
aa PRINT TABCZ& 5; ">>" 
1a CALL KEYEI.KY.KTD:: IF KT=G THEN 1610 ELSE CALL CLEAR 
FRINT "GI ACHTUNG FACHTUNG ACHTUNG LACH : 5: "DL KANNST NUR SÜLANGE IN" 
PRINT :"DEN GAENGEN LAUFEN, SOLANGE" :; : "NOCH LICHT GENUG SCHEINT" 
A PRINT : "ANZEIGE RECHTS UNTEN». UM":;:"DEH LICHTYORFAT WIEDER AUF" 
FRINT :"ZU FUELLEN MUSST DU AN DEN": 5: "LICHTEASTEN "SCHRSE 12755" ANSPRINGEN 


SEM PRINT : "AUCH DIE LECKS "SCHR$C 1235; CHRS$C 116 9; CHRSE 1229" MUSST" 5: "DU ANSPR 
INGEH UM SIE ZU RE-" 

1678 FRINT : "PARIEFEN. a 

1654 EALL KEYEISKT,EY5:: IF KY=E THEN 16558 ELSE CALL CLEAR 

1636 PRINT "UEBER DIE GIFTUÖLKEN. HELLEN" 5: "UND KROKODILE:» DIE AUF BEN" 

ı17aa PRINT : "ABWAESSERN SCHUIMMEN, MUSST" :;:"DU SPRINGEN. AUF DEN LEITERN" 
171a PRINT : "KANNST DU DICH NUR IN DIE": ; : "RICHTUNG BEWEGEN, IN DER" 

1726 FRINT :"bU SIE BETRETEN HAST. De 

1736 CALL KEYEL.KT,KYD:: IF KYr=&@ THEN 1736 ELSE CALL CLEAR 

1748 FRINT "STEUERUNG :" 

1758 PRINT :"JOYSTICK 1 + FEUERKNOFF": 

1766 PRINT :"*ALPHA- LOCK" BITTE LOESEN !" 

1778 FRINT :TABE 265; ">> 

1784 CALL KEYCL.KT.KYD:: IF KY=ß THEN 1784 ELSE CALL CLEAR :: El=1 :: GOTO 456 
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ALIEN-DESTROYER 


COMMODORE 64 


Progra 


Ein 3-D-Grafikprogramm mit 
vorzüglichen Eigenschaften 


Nach dem Start des Programms um 5 Einheiten, jeder Schuß um I Ein- 
mit „F-1“ oder der Feuer-Taste heit. Ist der Tankinhalt Ihres Raum- 
erscheint das Spielfeld und Ihr gleiters aufgebraucht, ist das Spiel zu 
Raumgleiter schwebt von der Ende. 
Raumstation zur Bildmitte. Jetzt Ist es Ihnen aber gelungen alle UFO’s 
müssen Sie 20 auf dem Bild- zu treffen, fliegt von links nach rechts 
schirm erscheinende UFO’s ab- ein Tankflugzeug, das man unbedingt 
schießen. Jedes UFO das nicht treffen muß um in den nächsten LE- 
getroffen wird und hinter dem VEL zu kommen. Nun erhöht sich der 
Gebirge verschwindet Score um den LEVEL BONUS (500 * 

vermindert den LEVEL) und den FUEL-BONUS (RE- 
Tankinhalt Ihres STUCHER FUEL). 

Raumgleiters Das Spiel kann in der Hauptsteuerung 
mit der „Commodore-Taste“ unterbro- 
chen und mit der „Shift-Taste“ fortge- 
setzt werden. Haben Sie eines der be- 
sten 80 Ergebnisse erziejlt, können Sie 
dieses in der TOP-80 Liste verewigen. 

Deshalb sollte man mit „F-3“ 

die TOP-80 erst SAVEN 
bevor man das 
Programm aus 

dem Speicher 
wirft. 
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4 RENNER 
2 REM#MACHINE-COLE & 
RENTE 


>» UHIAIEG, 169, 23, 162, 152, 141, 20,3, 142, 21,3, 1693, 1,141,13, 228, 141, 26, 208 
UHIHI3S,2:665,96:169,; 1,141, 25, 208. 164, 2, 248,9, 136, 249, 3,162, 10.44, 162 
a LAIAS: 44. ie. 169,97, 192,141: 18: 208, 169, 27,141, 17,208, 189, 38,132, 141 
: DATAS3Z. 208,169, 99,192. 141.33: 208,189, 166,192, 141, 34, 208,189, 101,192, 141 
DATA>3S. 208. 224, 10. 208, 4, 169, 255, 133, 2, 230, 2,138, 240,3, 76, 129, 234, 76,49 
> DAIAZ34.105,2:2,11,2:2605,1:1,0. 14, 255, 2, 2:0, 14, 32, 158, 183,138, 72,32, 253 
‚ LAIHLY4: 22, 198:163, 1604. 168. 24, 32, 240, 255, 32, 253, 174, 76, 164, 170, 234, 234 
DAIHES4: 182.0, 134, 252,134, 254, 162,62. 134, 253, 232, 134 , 255, 168, 8,169,8 
: DRIH145, 232, 145, 254, 200, 206, 243, 96, 120, 169, 49, 162, 234, 141,20, 3.142, 21 
LAIAZ. 169.129: 141: 13: 224, 169,0, 76: 16, 192, 162,8, 189,0, 4,201. 100, 144, 14 
» IATAzZU1. 163, 144, 7, 206,5, 169, 99, 157:8, 4, 254,0, 4,232, 208, 232,189,8,5, 261 
= UAIAIEB, 144,14, 261: 1603, 144, 7, 205,8, 169, 99, 157,8, 5, 294, 0,5, 232: 208, 232 
IHTA>6. 162.8, 165. 255. 197, 39, 208: 232. 224,8, 144, 248, 96, 173.8, 228, 41,2,208 
2 DIHIR1G.173.1, 206, 261, 204,176: 3: 238,1: 298; 173,8, 226,41,1:203,10,173,1 
IHTAzes. zul. 96. 144, 3, 206,1, 208.173,0, 220, 41.4, 208, 10,173,8. 208, 261,27 
26 UATAI44,3, 206,6, 205, 173,0. 220, 41,8, 208,18, 173.0. 205, 201,254, 176,.3,238 
= UATAB: 205: 173: 208, 141:2, 208, 173:8, 2208, 261, 112.176: 42.173, 255. 207, 201 
DLATAIL., 2449,35. 169.1, 141.255: 207: 173, 2: 208, 141,4, 203,173,1,208,141,5,208 
: DATAIYS: 21: 206,9;4, 141, 21.208, 169, 182. 141, 250, 7, 169,0. 141, 254, 207,96 
IHIALrS. 299. 207, 201:1. 208. 20,173. 254, 207.201, 21,208, 14, 169,8, 141,255 
‚, DHTARZO7, 141, 254, 207: 76: 12: 195. 234, 234, 96,173, 30, 208, 206,5. 208, 235, 254 
s DATA=ZUT . 173: 254. 207 , 261, 7, 208, 4, 238, 258, 7,96, 201 , 14, 208, 3. 238, 250, 7:96 
DATHZ3S. 253. 27 , 208.3, 32:96, 195. 32, 248, 192.32, 116. 197, 96. 169,8,177,47 
LATH4E. 15. 26, 177:47,16,8: 160, 4, 177,47, 261.1, 240, 1.96, 24,165: 47:105,7 
DAIA133.116. 185: 45, 105:0,133, 111: 168,0,177,118, 248, 236, 133, 34, 200,177 
DAIA11G.153,34,8: 192. 2. 2065. 246, 165: 119,133, 113,165, 111.133. 114, 24, 165 
= DATA113.185:3.133, 113, 144. 2: 258: 114: 160,9,177,113, 2408,61, 133: 77, 197,34 
„a DATA144.2, 165.34, 133.685, 266, 177:113, 153, 77.8, 192,2, 208, 246, 160,0, 177 
DATH >35. 289. 70, 240,4,176, 263, 144,9, 206, 196, 85, 208, 241,196, 34.176, 198,164 
DATRZ. 177,116, 176.177, 113: 145, 119,153; 34,0, 138, 145, 113, 136, 16, 240, 48 
Ace DATHIFE, 24,165, 118, 185,3,133, 118, 144, 143, 230, 111, 208, 139, 96,162, 4,189 
Mes IATHZE1,6, Zul, 185: 240,4, 254, 201,6, 96, 1693, 176, 157, 201,6, 282, 76,84, 194 
a DRIHA1L,6,14,60,1:13,8,2;3,5; 162.8, 183. 194,194, 157 , 37, 208, 232,224 ,11,208 
 TnTAz245. 96, 238.6: 208, 238, 252. 207 , 173, 252. 2097, 201,6. 240,1.96:162,8,142 
DIATA2S2, 287,173: 251: 7, 201,131. 208,6.169, 188, 141,251, 7, 96, 238, 251,7,96 
5 DATA162,8,169,132, 7,201, 94, 246, 4, 254, 192, 7,96, 232. 224 , 32, 208, 240.96, 162 
= IATAS31. 189, 19%, 7.201.586, 240,4,222,192. 7,96, 202, 208, 242,96,162,8, 166,8 
4 IHTA2S4. 9, 208,159, 9, 208, 201,146. 144,5. 32, 35: 196, 234 , 234, 185, 164, 196, 281 
22 DATAA. 208, 18, 228:8, 208,189, 8, 288, 217,165, 196, 176, 21,169; 1.153, 164,196 
=4 DATAZ54,5, 2608; 199,8, 268,217: 1665, 196, 144,5, 169,9; 153, 164, 196, 232, 232, 200 
5 DATAZUG, zu, 224,9, 208, 193, 96,173, 30, 208, 73, 255, 141.251, 207,41,12,208 
3 DATAS: 169, 185, 141.251: 7, 1723. 251, 207,41, 20. 208,5, 169,185, 141,252, 7,173 
A DATR2ZS1: 287,41, 365, 268,5, 169, 185, 141, 253, 7: 173, 251, 207, 41,69, 208,5:169 
AI DATALSS: 141, 294. 7,173: 251,207 ,41,.132. 208,5, 169, 185, 141, 255, 7,173, 21,208 
#24 DATA73,4, 141; 21. 208, 96.32: 184,192, 32,82,194, 32,164, 194, 96, 162,8, 169,8 
a>e DATIHLSEP, 292, 7, 265, 224,207 , 246, 23,189, 252,7,201,187, 240,6, 254.252, 7,76 
38 DATA137 195. 173, 224, 2687, 157, 252, 7, 169,8, 153, 9, 208.165, 252, 141,203, 207 
4 DATAZEG. ze, 232, 224, 4,208, 212,172. 208, 207,192,0, 240,9, 206, 208, 207,32 
DIATASZ.194, 6.144, 195: 96, 162,55, 134,1, 169,0, 133, 252, 169, 68, 133, 253, 169 
DAIHG. 133, 254, 169,56, 133, 255: 162,8. 160.8, 177, 254,73, 255, 145, 252. 208, 208 
He URTRZ4T 232, 224,4, 24, 7: 230, 253: 230, 255, 76,185, 195, 169,08, 133. 252. 169 
DATRIEG. 133, 253, 162,8, 160.0, 177: 252. 145. 252. 200, 208, 249, 232. 224,32, 248 
LATAS: 238, 253; 76:218,195,162, 111,142, 28,160, 162, 192,142, 29,168, 198,1 
DATAS38.:32, 172,192, 173, 1: 208, 73, 255. 141:1, 212. 24.173, 254, 207, 201.0, 205 
InTR=.1692,4,141,8, 212, 76, 24,196, 1605.48,141,8, 212,173, 2594, 207,201 ,16, 2608 
& DHTAS>. 22, 164,194: 96,142, 2408, 206, 140, 241,206, 169,8, 157, 9, 208, 160.4,32 
‘ DATA164 194, 136, 208, 250, 174, 246, 206, 172, 241 , 206 , 965: 162.9, 189, 252, 7,201 
UATA187. 208. 4. 236. 224. 206, 96, 232. 224,4, 2068, 240, 96, 162,0. 142. 204, 204,232 
DATA23S. 112.3, 206, 259. 238, Zud, 204,174, 204, 204, 236,113:3,176,5:162,8,76 
DATASS. 196,32, 248, 195. 96 32.686, 196: 32, 200. 194.32:.89,196.32:61,196,32 
E UHTHSG. 1985,32, 96, 195,173: 223.7: 201:94,240,17,173, 224, 206. 201,20, 248,18 
24 DATA1Y3, 141,2: 201,2, 240,4. 76, 111.196, 96: 173.141, 2,201:1, 208, 249, 76, 111 
a UATR196E,1,49,68,;,1,105, 144,6, 161: 208, 1, 217, 254 
ÖFENZ, 8,2, "@8: TOP,S, MM" :FORI=BTO73: FRINT#2, "OR1ARAMR SOFT...":NEXT:CLOSE2 
FÜrRI=43152T0509351:READA:FOKET.:A:S=S+A: NEXT 
24 IFSC>158985STHENPREINT"MOATA ERROR":END 
36 FÜKE43,0: POKE44, 192: FÜKE45. 8: FOKE46S , 197: SAVE" BO: ALIEN-1",8:575654735 
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FEMLRRFEFRERFFEREFE 
> REM GRAPHEC * 
KREMER 
> DATAU, 255; 255, 255, 2595, 255, 259, 255, 255 
DHTHI1. 124. 234, 238, 236. 294.230, 236, 238 
A DRIR2: 258, 230, 234. 230, 252, 230, 230, 252 
UHTHR=>. 124, 230, 236, 224, 224, 2530, 2308, 124 
DATA4. 252, 230. 230, 220, 230, 236, 230, 252 
‚ DAHIN: Zar ed, 22, 22 2, 22, 224, 254 
ı UAIHE. 254, 224, iz ed, 2, dd, 22 
DAIAY. 124, 236. 230, 224, 238, 230. 238.124 
2 DAIAS. 234. 2:20, 236, 234, 294, 236. 230, 238 
IATAS, 56,56, 56, 56, 56 , 56, 56,56 
6 LAIR1B: 6,6, 6:65: 250, 2508, 230.124 
LATA11, 230, 236, 228, 232, 254 230, 230, 236 
UATAIZ. 224, 224. 224, 224, 224, 224 , 224,254 
32 DATA13. 198, 238, 246, 236. 230, 236, 236. 230 
DATA14. 234. 230, 246. 238, 236, 236, 234,230 
5 DATA1S. 124, 2308. 230. 230, 230. 230, 230, 124 
33 ULATAIS, 252, 230, 230, 230,25 
4 DATA17, 124, 220, 220, 230, 230, 234, 228,122 
DATALS, 252, 220, 234, 2.30, 252, 230, 230,230 
DATH13, 124, 2.20, 238, 224, 124,6: 198,124 
VATHZA. 254, Ss, 56, 56, 56,56, 56,56 
DATAZZ: 2:30, 230, 230, 230, 236. 228, 232, 240 
DATR2Z3, 23, 224, 230. 236, 230, 246,238,199 
IalfAz4, 230, 234, 2:36, 230,60, 230, 230,230 
IATR2S. 234, 230, 230, 230,60, 24, 24,24 
DATR2E , 254,6, 6. 56, 224, 224 , 224 , 254 
LATAZ7 . 254. 224 , 224, 224 , 224 , 224, 224, 2594 
DATR2», 254, 14,14, 14, 14, 14, 14, 254 
DIHTHA3B. 32: 46, 248, 252, 252, 248, 48,32 
; DAIAR31.4:12:31:63:63, 31, 12:4 
= DATH32,9:0:9.8.4,8.6,8 
A DRTR32, 56,55, 56, 56, 56. BD, 56:96 
DATA3S: 9, 8,0,.8:0,3.3,3 
DATYA36E. 19: 15. 9%, 259. 255, 255, 255, 255 
‚, IHTA3?7:8.8,8.: 192, 208, 244, 245,245 
78 DATA3S, 253, 253, 253, 253, 259, 259. 255. 259 
DATR39, 64.80.50. 94, 85:85,685,85 
32 DATA4B,213, 213, 245, 245, 253, 253, 255, 255 
DATAY41,9:.8,0.0,0,64,80,85 
DATAd42, 37,95, 95, 127,127 , 255, 255, 255 
DATA4=3, 3.2, 19:83, 63,63, 259, 255 
DATA44, 132, 252, 255, 255, 255, 255, 255, 255 
2 DATA45.8,192,192, 246, 244, 252, 252,255 
DRTH4S.8,0,0,8,4,8,56,56 
5 IAHTA4E. 124, 2:30, 230.230, 230, 238, 238.124 
s= DATA493, 56. 126, 56 , 96 , 56, 56, 56, 124 
DATASA. 124, 220.6, 6: 24, 96, 224 , 254 
* DATAS1. 124,230, 230,6, 28,6, 238,124 
DATASZ . 238, 2:30, 230, 238, 126,6,6,6 
DATAS3. 254. 224, 224, 252,6,6, 220,124 
263 IATAS4, 124,238, 224,252, 239, 230, 234.124 
DATASS. 255, 227,3:4,8, 24, 24,24 
IATASE. 124, 230, 236, 124, 220, 230, 239,124 
DATAS? : 124, 220, 230. 236, 126, 6, 236, 124 
2ie LATHSS. 8,28, 28.0.0, 28:28,0 
> DATAEH, 14, 24,45.,96.,96.48, 24,14 
DATREZ. 112, 24.12:6,6,12, 24,112 
UnTAE3. 124: 230,6. 28,56,56:9,56 
IHTRES, 3:3: 15:15:63, 63. 255, 255 
‚ UATABE , 254, 254 , 254 , 254 , 254 , 254 254 , 254 
DATASY7. 128,128, 160. 166. 168, 168: 178,178 
234 DATAEBS, 25%, 258, 258, 258, 258, 258, 258, 256 
32 DATAS93, 2:34, 234 , 234, 234, 234 , 234, 224,234 
4 DATA7A. 174.170, 170,.170.176,178,170,178 
36 DATA?1. 234.224, 250, 250, 254 , 254 , 255, 255 
35 DATA?2, 255, 255. 253,253, 249, 248, 208,192 
4 TATA?3.85:89.85:85:9.4,.0,0 
: DATA?74,85, 85, 87,87,15,159,63,63 
DATAF7, 127,191, 223, 239, 247 , 251, 253, 234 
6 UATHFE, 254, 2553, 251, 247,239, 223:191.127 
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> 


; DATR?3,0.0,60, 

DATRSA,0, 4,0, 

* DATAS1.8,4,0,: 

DATASZ.8. n,28, 
DATAS4 , 8, 56,56 , 254, 56,56, 8,0 
DRAIASS.B,8, 8, 254:0,.0.8.0 
DATASE ., A, 255. 255, 255. 255, 255, 255,0 
IATA27:8,127:127.:127:127,127:127:6 
DIATASS.4.63.63,63:63:63:63,0 
DATAS3, 8, 31,31,31,31,31,31,9 
TATH38, 8, 15,15, 15; 15; 15, 15,8 
DATHS1:8, 7: 7:73 7, 7,7:8 
DAIA32,8:3:3:3,3,3:3>B8 
DATA33:8.1,:1:1,1:1:1.8 
DATR24.0,9:9.8.9:.0.0.8 
HE 27:25 
DATRIiAA,A,0,0,16 

=4 DATA1R1.9.8, 16. 

, DATA1B2,8,8, 16,5 
DATA1A3.0:.8. 16:0 
DATA197, 15; +35 
DHTA1BS: 

IATA1H3, 
‘ DHTAI1IB: 
= DATR111. 
DATA112, 
ESS ES 
aratalid, 
DATA-1 
REM 
KREM# SPRITES E 2 
FREMFFEFEFRFEEIFTET 
DATR2S:8,40.9,9, 105.0, 
DATA3S, en 22.0,25% 
1 
1 


Y 


SSH T AM 


LE LEG 


RA RI le SE 


KK Cr La 


,4,14,190,176, 62,199, 188, 245, 176,95. 245.196 

.48.0,0.170,0,0,176,8,18,170, 166, 42,178,163 

DATR1 7,178, 174, 17, ‚42,178, 168,8, 170,8,2.9,128,19.9,169, 19,8 

DATRIEO.8.0.138.0.2- u, »2,139,128.4,9,409,0,0,179,19,9,32,80,2,1,0 

> DATAS,132,9:.3,0,64,8, 225,8, 2,204.128:0,128,31.9,12,8.49,32,0,0,148,192 
DATAS:2.18.18.48. 128,4: 76,8, 458,17,168, 11,50,8, 46, 206,0,1,12,192,8,64 
IA tA3708:3,0,129,34,32:17,3:48: 12, 140, 12, 34,33, 16,16. 12,68: 9,49, ar 35 

; DATAIS, 161,8,65. 28. 35.204,144.8,16.176, 2,36, 208,9, 2,24:5.0,0.,5,64,0,5 
DATASa,A.42,170,176,60,40.47,42,170,176,5,80,9,5,64,0,5,21,8,0,8, 5, 8 

22 DATAB,3,64,8,37; 38. 1765,62, 178,175, 46, 48, 48,5, 648,5: 18.98,9.9,0,0.4,5 

4 DATAH,9.37., 18. 176.53. 90, 175:42, 170, 176,5: 21,9,8,98,5,8, 8, 5,64,8,48,48 

se DATA4E,E2,178, 175,37 ‚38,176,5,64,90,;5,32, 16, 179,4,6, 178, 144,1,170,64, 18 

e DATAIAS. 1650,18. 170.169, 10,150, 168, 2, 105, 128,6, 178, 144,16, 178,4, 16,0,4 
UATA4: 8, 16.37 :0,.255:0: 15. 255, 240, 63. 255, 252, 191,85, 294:173:85,122,178 

> DATASS: 178,42. 170, 168, 26,178, 164.84. 170, 21, 16,255: 4.9, 255:9.,09.69,0,0 
DATA2R. 23,8, 28.9,1:125. 64, 23,255, 212,41: 125, 104,178, 178,178, 176,178,178 

= DATA43, 178, 232, 14.178, 176, 48,178, 12, 248,8, 15, 34, 15:9, 240, 245, 255, 95, 245 

3 DATR2SS, 95,15, 178, 240, 43, 255, 232.174. 178, 186,43, 179, 232,14, 159,176, 21 

9 DATA195.84.,127.255:253:21: 105, 84,8. 20. 35,8.85;9,5,125, 88,87 ,255,213,87 

= DATA2ZSS.213: 165. 125.98. 178. 85,170. 258, 178, 175, 175, 178, 258, 176, 255,178 
DATAZE. 170. 164. 84.170, 21,89.9,5,35.1,85, 64, 7,255, 268 , 25, 255. 190, 196,125 

5 LATF1E9, 106.150. 1659, 196.125: 169, 185, 255, 185, 23, 255: 212.1.2599. 64, 26, 20 
DATAIE4. 115. 17. 29, 208,20, 7:38:16:9.4,84,8,21.84,8, 21, 152,69,38, 168,255 
IHTA4Z, 165; 255, 42,169, 198, 106.169: 170.106. 168,178,42,168.49.42,168. 0 

= DATA42, 168:8:42:32.08:8.44: 16: 170.4,6: 170, 144,1,170; 64,10, 105, 169, 10,178 

DATA168. 42,170, 168,42, 178, 168.58:178.172.47,170,248,42,255,168.16.178 

DaTRisfd, 19.170: 160,1: 178: 64,6, 170, 144,16, 178,4 

S=a: POKESS234, 8: FOKE1,S1 

FORI=8T01822: FOKE14336+1. PEEKS324B+T) NEXT: POKE1,55:POKES6334, 1 

RERDA: S=S+R: IFA=-1THEN3?6 

FÜR1=0T07: RERDE: 5=5+E: POKE143365+ 1+A%#3 , BE: NEXT : GOTO372 

IFSZ>1078 16 THENPR INT" MDRTA ERRÜÖR IN GREAFHIC":END 

FORL=8TUIB22:FÜKE143365+1+1023, 255-FEEKC14336+1 95: NEKT 

FÜRIT=189#r4TUZu008E4: FPOKEI: A:NEXT:S=H 

FÜR I=184T019#: READA:S=S+R: FORJ=ATOR:READB:S=S+B:POKEI#64+J. B:NEXTJ, 1 

IFS<>4733 SIHENPRINT" DATA ERFÜR IN SPRITES":END 

FÜKF42. 8: POKE44 45: POEE45 6: FOKE46 64: SAVE"RB: ALITEN-2" .8:57564738 


ir 


it 


RE UNEIY EN 


a dur 


La a a a a a Le a cn Lac 


We Li Gl 
DECO MEN 


FERSANELNGON 


LO LE ie 


“ 


APRIL 1985 HoMECoMmPUTER 29 


4 REM ee 
zu FEN RLIEN-DESTROVYERK 
a REME Oo cc) 1985 Fr MR-SOFT AUSTRIA %* 
FREM# 
REM# iBTH DEC e4 
REM%* 
A REN# RFÜNRHRLD MATTER 
A FEMk dasz THENING 24/0ESTERREICH # 
“4 BEMEHeeeeee 
AHA SPSSEFRI: SrS5HAE1 : Y=532ds POKEY+17, 1: POKEY+23, 63: POKEW+24,31:DIMPFCS1? 
a nrENZ.:S, 2. "TOR, SSR" :FORI=S8TO?73: INPUT#Z, P$C I: NEXT: CLOSE2 :A=:POKES@196. 26 
FOR 1249243 101492535 TEPS : A=A+1 RCAI=T:BeRD=1I+1:5CAd=I+2:NEKT 
AR Seäder2: arg: 55432 
1A PRINT ERREIMRI SOFT AUSTRIA" :F=6: E=14R: GOSUR4RRAB: LET16, 15; "IPRESENTS: 
a4 FORL=1T0256864:NEXT:FPRINT"T':FÜKEY+21:08 
S=-44272:FOrRl=KT024: FOKES+T A: NEAT 
FOEES+24 47 FÜKES+S 45: FOKES+B. 241 
za PÜKES+12, 112: PÜKES+11.33:FOKES+13. 16 
r FOKFFÜLSS:H:FOKERCZ2D, 10: FOKER(3) , 30 
r& FuÜR(=1103: FÜKEBEIS, B:FOKESCISSA:NEKST 
SYS4a1Sz: FÜRESLS3I. 8: GÜOSUBSEBHE 
GETAF : IFR$< >" MI ÄNDPEEKCSE3ZB) > 111 THEN238 
5OT0SzaaA 
FÜR 1=61 024: FÜKES+T U NEXT K=0 
A POKFE+24, 15: POKES+5. 48: POKES+B. 241 
FÜKES+12. 48: PÜKES+13, 241 
FESTORE:FÜRI=11064 
a EL FERDN: FPOKES+E:N#25:FOKES+11, 33 
POKES S+4, EE :POKES+1, F+%:%=3-%k: FORT=1T093: NEXT ’FPOKES+4, 32: NEATI 
5,#:RETURN 


ir! 


wü 


i 


5 a E 
A REM# GAME * 
Am BREMER 
a4 GOSUBZBRRA: GÜSUB1100H 
15 POKE2U4F, 19U+LE :POKESSR, 46 


en 
DESLNTIT u TG 
SOSE 


a 
2} 
5 
DE 0% 
) 


POKES+24. 159: "FORT BEI VS SOHT FPOREBEB RI TANE NEXT SNERFB 
FÜKES+4 129: LET13: 17: "BLEVYEL"SLE 
=23 FORT=1101HRA NEXT: LET, 17%" 
11a FÜKESZFER. U: S7538257 
ıiaıık I FPEEK<S23667=28THER 30009 
inı2H 
11948 FE Mk 
1114 FEM# SUERDUFINES * 
IIM2R BREMER 
11844 POKEY, 73: FoKEw+1 197: FOKEVY+Z1,1 
11954 Fiürl=1T029STER. a: PÜKEW+L1. 137+1: FÜKEV. 79-1: IFI>1STHENPOKENV+Z7 249 
54 NEXT:FÜORI=1TUSBSTEF „4: POKEW , 48+1 NEXT: FOKEY+Z, PEEK(WD :POKEV+3, 226 
FÜHEY+Z1: 3:FORT=1T024STEP. 4: POKEV+1 , 226-1: NEXT :POKEY+21 243: RETURN 
FEMEFFFEFFFEFEFFEFF EFF 
FeEm# GAME UWER + 
4 REM* EEE 
4 +8, 8: PÜUKEV+21: 3: K=FPEEK (V+13 : FORI=SKTOZZSSTEP.S 
FÜKFS+1. 255-1: FÜkEW+1. D’NERT 
FnET=1 058: FOR I=HTO2: FOKEZR4R. 185+.1:NEATJ, I: POKEV+21.0:POKES+24,8 
FükJ=AT011:PukKEeds. A 
IFJS>STHENFOFE Rd. # 
; FÜRrI=ITOHI-S:LETI. JS, "@" :NERT 
FÜRI=JTO23-J:LET31-J, 1, "@" :NEAT 
FÜORI=31-JTUJSIEP-1:LETI,23-], "@" :NEAT 
; FORI=23- JTUJSTEP-1:LETJ. I: "@":NE#TI:J 
1 Eben: FÜrT=1 108: SC=Sc+tcPEEK (1742-1) 176) 1ATII : NEXT 
ASsca SC: TGHT EC AHA" +MIDEUSTRECSCH 29,65 
sa PUKESCII,M:F=el:B=14d: PRINT" SM GAME OYER 
} LETE:4: "HITS IN LEYEL"LE"IE ":LET23,4, FEEKOS2IER) 
4 LETE: 12: "MTOTAL SCORE:":LET28,19, "A"SC$ 
A MALTSES2B, 127, 127: FOKEY+Z1, 8: RETURN 
ö Ba ee eg 
=uiA FEM# LEWEL +1 
4 ES 
1 Sk=FEEKCZu44 +1: IFKP139THENASR-E 
4 FÜRT=5103:POkEZe44+ 1%: NEHT 


i ® 
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5A FOKESF2AB, A: POKES3216.:%:POKEY-1, 8: POKEVY-2,0 

FOKES+22, 96: PÜKES+Z3, 243: POKES+4, 17 

FOREZSZ, S+LFE#5: IFLECSTHENFOKES31 , 38-2. 5#LE:GOT013076 
“> POKESE1:26-LE 

IFG=11HENRETURH 
5 LETi2,17, "sFüuEL BONUS" :F=h 
ea SY549325:F0R1I=1TOLE: Sr549745:F=F+19:LET14.19,F: NEXT 
4 IFPEEECZUHISICHSSETHEN SOSE 
95 HAITSE320: 127,127:LET11, 17," ":LET14,19," ":G60T018088 
FEN FF 
REN# SCREEN 1 * 
RENTE FF 
SYä49315:57549290 : POKEV+ZZ: 216 
FÜKEY+17. 1: POKEW+Z1, A: POKEW+24, 31 
FOrRI=1T03:FOKEREIT>, 11 :NEAT 
FÜKESC19,12:PÜOKESC29.5:FOKESCH) ,9 
FOKERC15. 168: FOKER<CZ> , 246: PÜKER 33 , 255 
FÜKESU1I+2, Z:PÜKESCZIHZ, 14 
FÜKESCIH+H1, 11 PÜKESCZI+1.0 
FRINT"Ia | I 1 —_—RBER/"; 
FEIN" ® = Bl RB"; 
PRINT"S ir EIEI WEIEIEICH EICH 
FRINT"S ; ir EIEIWEICIEICH EICHE 
PRINT"A % % ma nl mw ; 
PRINF"AL ; ir EIEI WEICIEICH EICHE 
FRINT" a = ma naErN m; 
FRINT"a % ir EIEI WEIEIEIEH EICH 
FRINT"a & neek Fra"; 
FRINT'IRE +4) +.% nee tree" ; 
FRINT" ER IHRE, ,% +,$% +BBe Hm ASOFTM m"; 
A FRINT' HER: HERDER, " ) +, A+BERK, " )+BEBEE HET ER FEEENEE" ; 
A FREINT'IEREREBRBEERE ( KERBBEREE ( KEREREREETE -ERERE _" ; 


De ; 


EEE 


sen 
De 


pe nE - 
ber Be SD jun) 7 SS = 


a 
DW 


ZEUGE 


{ 


Du Di 


we 


Da N Zu NENNE 
ES 


=; 
a 


ve 
ar 
1 ee TE 


Ba RE NE IR TE RE NEE RE RE RE NER EN 
IE EEE Fin 


15 
' 


AULRELN 
De 
br 

I 


z 
In 


I 


mn. 
I 


FPEINT"3 
A FEINT" 
A FRINT"4 7 
FRINT" sid __ aa Bang m"; 
za FRINT" Se JE I De E EICTEIEIEIETEIC HE 
A FRINT" x JEICIEICH E CIETEIIETEIEIC HG 
4 FRIHT"S DE EICH) a Be — 44 HIGH: m"; 
sa PRINT" E EIEIEIEIETEIETC HG 
SA PRINT" » 4 = a3 "LEFTFCPECH),E)" W"; 
a a a Te ee NPEEn En nn ana ann nenn nun KARTEIL- EC HCHTCST EEE 
PRINT" nneetaonnoaeaeneannähtueeeeneeem FUEL"; 
FÜRI1=410685TEF2: FÜKEV+S+1. 30+1#25: FÜKEY+9+ 1, I#2: NEXT 
FOKEZAg4A, 126: FOKEZA41, 151 
4 FÜKEY+27 255: FPOKEY+2S , 255: POKEV+29, 8: FPOKEV+16,8 
4 57543152: 57549778: RETURN 
REMNKFRFFFEEF TEE 
A REM# JET-LEVYEL * 
Hz KEMEFFFERREFFTT IE 
=u@260 FÜKEN+7. YÖ+HRNDC19#56: POKEVY+B, B: POKEY+21. 11: POKEY-1.0: POKEW-2.8 
aaa PÜREZAFS. 158: POKESSZIE. 
=uesu FÜR I=SEBTOZER: SYS50168: 57549792: 57550168: IFPEEK L 2A43 3 <> LST7THENNEXT :GOTO18128 
FERI1=SBTORSIEFE:PUKEW+S+L. 30+1#25 : POKEY+9+1, I#2: NEXT :POKEY+21, 243 
A=1:50SUESUH 
LE 12,17; "aSUFEREUNUS" 
F=SAh#LE:LET14, 19, F:FORI=1 TOF/19: 87549746 NET 
A MAITSE32A. 127: 127: LET14, 19. " ":LE=LE+1:60T013988 
REM 
REM# CHARFSFEITE * 
2a BREMER 
FÜKEW+Z3. 63: FÜKEV+16 32: FPÜKEVY+28., 8: FÜKEVY+27.8 
FÜRT=ATO1ASTEFRZ:PÜKEW+1+T:E 
4aasa A=172:FÜKEN+T. C4S#A+32 > ANDZSS 
as PÜKEZA4A+A, 245+A: NEXT 
4a? T=1NTCC19-LENIREIDFZI 
4assa A=247:POKE2SS:F 575433387: FOKEY+21,63 
aaa FÜRT=1TCIESTERS3:A=A+1:FORJ=OTOZ 
ala K=PEERKCIBZAa+rl+J)45+14336 : IFR=14532 THEN4BI1 3 
+a1i6 Eehted+l : 
4alzu FÜRK=ATO?: FOKEB+K# 3. PEEKCK+KD :NEKXTE 
44130 NEsTJ. D’RETURN 


MIN Aa 


- SIE WTB oe OO N a a a 


SEES SO 


rn 
u Die 
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A PEN 
REM# TITLE 
RENNER 
=" (De 
Tt='"Ihbhhbh 


Fr=l$+ZH 
2$ 3)=LEFT$E 
Z£(C4)=LEFTEL 
ZE{S>=LEFTE 


D5%5 
EEE 

Sy. AL 

MIN 


— 
En 


) 
KB a u N a u ET Kr EEE EN 
SD ge 


ZIG EDG 
a 
Sm 


Für T=1T05 


Eu15a FÜrRT=1T03 N 
Sulse PUKEY+23 8 


Ssalra Sr549290:LE 
sal7l FÜRTI=SSATOZ 


' RETLFN 


N En ON ICHEN EN LH 


a fi Be} Su ) 


FEM# SELEET 


4 57549239: FR 
K LETI2,B,"AF 


DE | 
"a 


Sa LETZR.15,." 


ı GUT0SzZAB 


er FEM&#SEE Tur 
sa Fed: Be62:PR 
IFN£=RIGHTE 


? IFSTE+NESFE 
19, 2.1$" 


A NEXT: POKEY+Z 


ba 515} 


Salz IFAESCHREÜLS 
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YE="TTIITIN: 
EA DERT Tr en ea DIESER 


4155 FORI=SBTO39:LETI,1:"8"5:LETI, 11," 


ETICHTEIEIEICIEIETEIEH SE TcIc he 


FEHFEHEEENH 
+ 

EERHRRFEEEH 

Ana re RE 


SF" EINE" 


++ LEHE HEFTE 
[$, Par" m +ZH "BR" 


T£, 1594" mM" +2$+7$+" BEREITETE" 


IF, 12)+2# 


a POKEB4E,1B:LETE,3,ZECJ) 
a POKEE46.2 :LETS:2.VE(D) 


NEZTI..J 


EU IHRE BE KU VIER": 


32: POKERCZ23. IT:POKERC3),1I 
S4175 IFII=S183THENGOSUESAG 
saiea IFII=15STHENPFOKESCSHH,3:LETT +13: "RCOPFRIGHT 1385 Er MRI SOFT" 
4 TFII=S1S88ETHENFÜORES CH} ,S:LET4, 15, "EWRITTEN. so en nenn.» MAYE 
IFTI=182THENFORES<C35. 14: LET4, 17, "TGERFHIC DESIGN... .. MAY 
IFTI=1935THENFOKESC3H), 18: LET4: 19, "BSOME TIPS.» ....+...REIT 
IF1I=Z14THENFOKESCHH 
NHE#=TIL:FOKES 
LET1A.,23. PRESS 1F7* TO START" 


39,6 


BREMER 


# 


2920 REINIGEN 
Aa3a SY543315:POKEY+33,A:POKEN+32,0 


InTeep: LE=1 
i *t FLHYF GAME 


A LEI12.9, "BF3 *t SAVE TOP&B 
A LET12,12, "RES -t SEE TOPSA 
“sE7 tr LEVEL { 


1995 Er ML AraR" 
SOFT " 


En oreniage 
TFA$=" I" THENLE=LE+1 : IFLEPSTHENLE=1 


» FE 


IFA#="lE" [HENSSKAG 
IFA£="" THENGOSLES4OOG 


FEN 
REM#SAYE Top Su * 

Je PEMEERFRFF FF 
FÜKEW+17.: 1: 0OFENZ,S. 2, "BA: TOP,S. MH" 
FÜRIT=ATO?FS: PRINTAZ,PSCHI: NE#T:CLOSEZ: FOKEY+17,27:RETURH 
FREE 


SE % 


oz KREMER EEE 


INT" 


Sakdd Ze: Fürl=1 Tsd 
Hase LE=SRIGHTEE"O"+MIDECSTRECT>, 


="; :NEAT 


F=7:E=146: GOSLB4AGA 
I+12 


> HLITEN ©": Bea: Fell: GOSUB4ABRR : POKE193, 6 


SOSUE4ABAR 


23,23:2=2+2 


<F£{ 1-15. 103 THENPOKEe4E , 10 


1-12 THENFOREB46. 7 
Be DE a FE 


STHEHGOSUESSIOG: 7 


22.21#:G0T05 2u5A 


OKEI9S,0:LET12,22, "LI ] [RETURN] 
Ssolla FOKE19S,B:MALTI2S,1°GETAF 


>THENT=S4: RETURN 


ELBE TER IE 


a 


ee a 5 PIEIEIERG Ep) DEI I 7 1 TER PRSEIEHT EN TER IT 1 Fehs Dep la 1] 7 2m 1 ce) CH 

YEL2I=T$+" TER VE RENERN +++ EHE BLEI" 
TEiS>=LEFIELTE: 73 VERS BE EHE RE RL" 
TEL43=LEFTECT$, 1534" GBR Au REEL ER EHRNE FR EE /"" 
TELSd=LEFTEETE, 1234" +MIDECYE3II SE, LI ER" 


B:A=2 


R RONALD" 
ER RONALD" 
TER PETER" 


2:LET4. 21: "CRITICenaanan a. MAVER ALE#AHNDRA” 


FÜKEV +22. 2868 


"PRINT 
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5136 IFAF="+" THENRETURN 

Soi4A IFA$="-"HANDI>ISTHENT=I-16:RETUFH 
55154 GOTOS5118 

SE REM 

-Ssrala REM#ENTER NAME * 

Sem REFIERERIRENGEIRSOIEIENEN 

- b TE Far ‚63 THENS 
u: LETI2, AR 
mA CONGRATULATIONS ! 3 


A "GREAT "SCORE!" 

5) 2 602 LIE Aue 
Er 41 
A LETIE.: 15, 


INPUT "beheben; 


FENSTER 
4 REM#ALTEN-LÜRDER + 
Ki REKEN 
FRINHT"IR"; :POKESSZEL: 
A IFA=SHTHENA=1:LORL"AL LEN-2",8 
A IFR=1 (HENA=2:LORD"ALITEN-1", 8, : 
=a4 PREINT"SSFÜKE44. 64: FOKES4E2SE 8 NEM" 
FRINHT" LORD” AS"HALITEN-D VER"AF",8S" 
Ind PRINT" MRRIRUN" :FUKES32TZ, 31: POKES3263, 27 
11H PEINT'EISRRRMBITHLIEN DESTROFER* 15 LOADING" 
1-0 PRINT TFT RIGHT 19535 Er MR SOFT" 


Schauplatz dieses Spiels ist eine zer- 
klüftete Landschaft am Fuße eines 
hochaufragenden Vulkans. Hier stehen 
sich beim mitternächtlichen Duell zwei 
Panzer gegenüber. In einem unerbitter- 
ten Gefecht müssen Sie ein wachsames 
Auge auf die gegnerischen Raketen und 
herabstürzenden Meteore haben, damit 
Sie in Ihrem Panzer nicht getroffen 
werden. Es gilt also, im richtigen Au- 
genblick blitzschnell auszuweichen. Ein 
Spiel, bei dem Sie mit Ihrem Partner 
die Reaktionsfähigkeit testen können. 
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>= TFLENENEISTÄTHENLETIG. 18." BAD NAME" :FORI=1TO1ARA: NEXT: GOTOSSASB 
A HE=LEFTECHE. 109: Pl Bu)=SCH+N$: 57543535: 60T0II008 


139 POKESE1, 19: FORI=1 103: POKES31+1, 13: NEXT :POKE198,5:STOP 


Commodore 64 


HoMECOMPUTER 33 


AR ARAR Ak 
DUELL 
C) 19585 
WRITTEN BY 
CHRISTIAN WURZER 


FÜR COMMODORE 64 


vaunanu2üuüm- 
FERKERER 


% 
18 REM RER AR AR 
11 
I POKES3288, 0: PÜKES3231 ,6:GUT0358% 


B SYSa9ı52: PÜKESS325, 14: FÜKEV+3B, u 
K=PEEK(V+38) 
IFK=3THENSG8 
IFK=655THENS68 
IFK=6&THENSUB 
IFK=55THENSUB 

3 GOTÜZ218 
REM #* FANZER 1 GETRUFFEN 
PÜKEV+16, PEEK(V+16>HNDZ233:: PÜKEV+3, PEEK (VW) :PUKEV+ZI1 , 26+2+64 
PÜKE2844, 136: FÜRT=6T038 :NEX] : PÜKES32U8, 1: 5r553206 
FOKE2844, 137: FORTSBTÜUSB : NEXT 
POKE2944, 195: FÜRT=BT034 : NEXT 
FÜKEZ2844 , 133: FORT=6T038 : NEX I 
POKEV+Z1, 12+2+64 : FURT=8TU33 : NEXT 

5 Li=L1-1: IFLI<CÖTHENSEB 
PÜKEZ14, 21: PÜKEZ11,3:57550646 : PRINT" BA"L1:PUKEY+3B, 6 
FÜKEY+21,15+64 : 50TU252 
REM #%* GAME UVER FÜR 1 


FÜKEV+Z1,4 

GOTI798 

REM ## PAHZER 2 GETROFFEN 

PÜKEY+16, (PEEK(V+163 UR16 : PUKEW+B, PEEK(V+4) :PUKEV+Z1 , 14+H8+684 
FOKE2844 , 196: FÜRT=5T036 : NEXT :PÜKES32U8, 1:57553206 
POKE2B44 , 137 : FÜRT=BTUSG : NEXT 
POKEZ844 , 133: FÜRT=5 1036 : NEXT 
FÜKE2044 , 199: FÜRT=6T0S6 : NEXT 
POKEV+Z1., 3+8+64: FÜRT=&TU33 : NEXT 

L2=L2-1: IFL2<ÖTHENSER 

POKEZ14, 21: PÜKEZ11, 36: 57558648 : PRINT "EA" L2:FÜKEY+38, 8 
POKEV+Z1,15+64:50OTU216 

Br ## GAME UVER FÜR 2 


POKEY+Z1,1 

REM ## GAME QVER Ill 
FÜKEZ214,5:PÜKE211,15:57550640 : PRIN I "SAME ÜYER" 
PRINT"MUIA KURZ TASTE IN I DKUECKEN = NEUES SPIEL" 
GETRA$: IFA$<>"N" THEN?ZS 

GOTOZ89585 

REM #%* MASCHINENPRÜGRAMM 


2 DATR128, 169, 132,141,21,3,169. 13, 141,20, 3, 88. 96, 173,13, 208, 141,45, 208 
DATA174,0, 226, 224,112,176,62, 174, 195, 2, 224,0, 208,55, 173: 16,208, 41,253, 14 
B DATA16,268,174,0,268,142,2,208, 174, 1,268, 142,3, 208, 162, 255, 142,195, 2 
DATR162,8,142,4,212,162,4,142, 1,212, 162, 10, 142,5, 212, 162,15, 142, 24, 212,1 
DATA129,142,4,212,162,1,142, 173,2 
DATA163,8,141,192,2,173,8. 226, 41,239, 141, 253, 207 
DATA174. 253, 267, 224, 107 , 248,5, 169, 255, 141,192, 2, 174, 253,207 ,, 224,163 
DATRZ288,5,169,1,141,192,2 
UATA174,8, 208, 224,36, 208;5,163;,1,141, 132,2, 174,4, 208,224, 99, 208,5, 1659,25 
22 DATA141,132,2 
DATAR174,1,228, 224. 244, 176,82, 174, 199, 2. 224,0. 248,55, 173,16, 208,9,8,141 
; DATA16,205,174,4,208, 142,6, 208, 174,5. 208,142, 7,248, 162, 255, 142,139, 2 
IATA182,8,142,11,212,162,4,142,8,212, 162, 14, 142,12,212,162,15 
a DATA142,24,212,162,129,142,11,212,162,1,142,183,2 
DATAIi6E9,8, 141,196, 2,173.1,2208,41, 111,141, 254,207 
DATA174, 254, 207,224, 107, 208,5, 153,255: 141,196, 2,174, 234, 207,224, 103 
DATA288,5,1693,1,141, 196,2 
IATA174,4,265, 224, 2,248,5,169,1,141,196,2,174.4,288, 224, 70, 208,5, 169, 255 
22 DATA141,136,2 
2 DATR174,3, 208, 224, 7%,288,5,1852,1,.142,195,2 
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3 DATA174,3, 268, 224,560, 288.5,162,5,142,173, 2 
DATR174, 3,286, 224,96, 208,5, 162,3,142, 173,2 
DATA174, 3,288, 224,128, 288,5, 1652, 1, 142, 173, 2 
DATA174, 3,208, 224, 208, 288.8,1652,.8, 142,195, 2, 142, 3, 205 
DATA174,7,208. 224, 70, 203,5, 1682, 1,142, 139, 2 
DATHI74. 7, 208, 224,50, 243,5,182,5, 142,183, 2 
DATA174,7, 208, 224,30, 268,5, 162.3, 142,183, 2 
DATA174, 7,288, 224,128, 248,5,1862.1,142,183,2 
DATA174.7,208, 224, 200, 203,5,162,0, 142, 139,2, 142,7, 208 
DATA173,15,208,41,32,170, 224.32, 248, 12,174, 10, 208, 224,40, 176:17,1693,1 
DATA141,202.2,174, 16, 208, 224.40, 144,5, 169, 255, 141,282, 2 
DATA174, 205, 2, 224,0, 208.37,173, 16, 2668,41,131, 141,16, 268, 173, 16, 208,41,32 
DATA178, 224, 32, 208,8, 173,18, 288: 939,64,141., 16, 208,173, 18, 208, id1,12, 288 
DATAI1693,1; 141,205, 2 
> DATA174, 13, 208,224, 200, 209,8:163,8, 141,205, 2, 141,13, 288 
DATA162,15,169, 125, 141,681,3,141,68, 3, 222, 208, 2, 208,44, 1589, 176, 2, 157: 208,2 
2 DATA189, 192,2, 248, 33,16, 12,189,8, 203,8, 222,0, 208.40, 240, 7,208; 19, 254,0, 208 
IATAZGS, 14, 173,68, 3, 2608,9,173,61,3, 77,15, 2648, 141,16, 208, 173,60, 3, 208, 3,73 
> DATASB1.,3,73,128,141,68, 3, 202.16:191, 70,49, 234, -1 
DATAIi62,0,142,18, 212, 162, 255, 142,15, 212, 162,19, 142,19, 212,162,15,1492, 24 
DATAZ12,162,123,142,18,212,36, -1 
2 DATR128,159,49,133,1,169,8,133,98, 133, 188, 169, 208, 133.99, 169,56, 133, 101 
IATAiS2. 16, 166,8, 177,38, 145,106, 288, 208, 243, 236, 39, 230, 101, 202, 208, 242 
a DATAH169.55,133,1,858,.96, -1 
DATAZS53, 255, 131,8, 133, 231, 233, 233, 255, 255, 255, 255, 127,191;191,191 
DATAZ233, 207 ‚247,159, 126, 3. 255, 259, 175.174, 174, 110, 221, 193, 255,255 
DATAB4 , 239, 227,223, 223, 129, 255,255, 131,223, 223,223, 139, 3, 255,255 
DATAG,9,9,0,1,0,8.8,-1 
REM #* SPRITES 


a REM ## PHNZER 2 
5 DATA, sus ss 0 2 0 1 1 1 1 1 1 31 5 1 9 1 1 1» 1285 3, 1985 33965 4,605, 3,6555 431, 255, 224,653, 255 
DATAZ48, 31,255, 224,13, 192, 192,6, 219,128, 45 0 1 1 1 1 0 00 
a REM ## RAKETE 2 
2- DHTA), 7435516545000, 4.126, 17363 4.4 1005.40 000 90 831 NETTER VE RIEF 
DATA; >», 
2 REM &# PANZER 1 
2UBATA>37 44 44 1 307 1 1 4 9 1 0 0 723 Br 1255 1 120,512 5, Es, eh, 2, 24 
3 DATH31,255, 224,13,182,132, 7,109, 128, 9 54 97 1 1 1 124 005 
REM ## RAKETE 1 
DUNIHs 4 9725.41 85 DEE ER u 305 16T a ee Fee 
DATA, ‚; 
REM ## EXPLOSION 1 
DATA, »,,25>,,16,,64,12,1,128:65, 35,356, >11: lfd, ,,240,,1,112,,,248, ,,216, ,1 
DATRA172, ,3, 134, 6,3, ,12,1,128,8, , 128, 16, 04, 4 1 1 4 4 05 
REM ## E#FLÜSION 2 
DATA, 375444 33.493 577 33898, 9 134 3 1 140, re Ber a 
DATA, ss 4» 14 3 995 
REM ## EXFLÜSION 3 
DHIN,422532.. 32ER BO rn LEITETE FRI 
DATR, » 4,55, 
REM ##* EXPLOSION 4 
2: DATA, 32, 33323 7424,85 128,12, 14 128, 3 35 43.41 02 IA Er ir 128 
DATR3, ,128, 33, ,, 32H 1» 32H 1 u 1 1 9 35 
I REM ## METEOR 
DATA, ,,1,,,6,132, ,13,160, ‚68, 200, , 25,176, 10,58, ,536, » 3:64, 1 2 1 47 1 1 39 3 95 
DATA, s ss Hs 1 1 1 1 1 1 1 1 1 1 1 1 1 1 13 37 3 5 
PRINT'"TRRRLIgi 4 eu us 
FRINT" ga am a4 
FRINT" 3e a 
FRINT" a =3ı4 
FRINTa 
FRINT"SA 7 
PRINT" 
PRINT"E Emm mn mn 
a PRINT" EIHM ACTIONSPIEL FUER 2 PERSÜNEN!" 
FRINT"MJOYSTICKS AN PORT 1 UND 2 ANSCHLIESSEN" 
PRINT"MMEITTE WARTEN - DATEN WERDEN EINGELESEN" 
REM ## EINLESEN DER DATEN 


FÜRT=8T0333: READU : IFÜl=-1 THEN4OZU 
POKE43152+T,G:NEAT 
FÜRT=9T0333 : READR : IFu=-1 THEN4ESE 
POKES3289+T ,0: NEXT 


[EL EW} 


2 CO Li WI La al GL 


. 
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4358 FORT=GTO933: READG :IFü=-1 THENdASS 

4068 POKES3B94+T,G:NEAT 

4065 57553998 : POKESI3ZTEZ, (FEER(S3ZFZIANDZAB I) UR14 

4078 FORT=ATOI33: READO: IFü=-1 THENSBBH 

40568 POKE14336+35#5+T,8:NEAT 

s888 FORT=BTOS3:READG: PÜKE12235+T,0: NEXT 

saB2 FORT=BTOS3:RERADU: PÜKE12352+T 0: NEAT 

Saa4 FORT=ATO63: READE: PÜKEIZ41E+HT.W: NEXT 

Saas FORT=ATISES:READQ:POKE12438+T , WU: NEAT 

Sa08 FÜRT=9TOS3: READG:PÜKE12544+T, 0: NEXT 

ss1@ FÜRT=9TIS3:READG: FOKE12583+T,0:NEAT 

Sa12 FÜRT=ATIS3: READA: PÜKE12672+T. 2: NEAT 

>814 FORT=8T063:REHDU :POKE12736+T.R: NEXT 

sa16 FÜRT=ATÜSS: READE : POKEI12380+T ,@: NEXT 

6838 FOKES3Z2U6, 2:57553288 : POKES4272+19,13 

su48 PRINT"TTI KURZ TASTE IN I DRUECKEN = START 

60958 GETA$: IFA$<C>"N"THENSBSE 

6851 POKES3206,253:87553208 

19399 : 

20008 REM ## VARIABLEN. DATEN, ETC. 

2uam1l : 

2as1d Y=53243:L1=9:L2=3 

20028 FORT=685T0713:PÜKET,&:NEA] 

20938 POKE6B33,3:FÜKES32,3 

20931 POKE638,2:POKESF1.1:FOKE7BI,2:POKE?BB, 10: FÜKE7IG, 1 
2aa32 FÜKEE94,2:FÜKES3S,1:FOKEEIS,6 

25048 FÜKEYBS, 1:POKE712,255:FPOKE714,1 

28850 FÜKE2942, 192: FÜKEZU43, 133: FOKEZU4U, 194 : POKEZ641 , 195: POKE2946 , 200 
20652 FORT=33T044 : PÜKEY+T,15:NEXT 

2a068 POKEY,69:POKEV+1,198 

28861 POKEY+4,68: FÜKEV+5, 190 

25062 PÜKEV+8,68: FOKEV+3, 19% POKEY+13, 0 

28963 POKEV+3,8:FÜKEW+7,8 

21200 POKEV+21,79:POKEY+16,4 

38098 REM ## GRAFIK 

33818 PRINT"TI" 
38411 PRINT") Kl) AIAInel> ».T1] >Mmealaie> TUTTI BORKEN 
32180 POKE214.13:POKEZ11,9:57553648 

38182 PRINTTAB1F "RA a" 

38183 PRINTTABC1SH"M 

38104 PRINTTAB(C137"4 5 

38105 PRINTTAB<1S}" «A _ u 

30186 PRINTTAB<172"37 PRINTER m" 

317 PRINT'TIIA Wu" 

33114 PRINT" 

sa112 PRINT" 

38115 PRINT" 

salls PRINT" PANZER PANZER & 
28117 PRINT" ":GOTO188 
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Auftrag für Gelegenheitsanzeigen in Homecomputer 


Homecomputer 
Landstraße 29 
Postfach 41 ae 
3444 Wehretal 1 
Abo-Nr. 
Unter der Rubrik „Kleinanzei- Unterschrift Ich zahle sofort nach Rechnungserhalt Datum 
gen“ veröffentlichen wir Ge- x 
legenheitsanzeigen für Verkaufs- Ich wünsche folgenden Text zu veröffentlichen: 
angebote, Kauf- und Tausch- KREBS: 2 [| | = | 
gesuche, Kontaktaufnahme bzw. Seren ankreuzen 
Erfahrungsaustausch usw. | | | | | | | | | | | | | | | Ankäufe 


U Verkäufe 
Preise für „Kleinanzeigen“; BEIRERZEIRESRETKSE SSENBRSBR SO 
Private Gelegenheitsanzeige je [| BBERASSLLARRTER AG Z J U Kontakte 
Druckzeile 5,— DM inkl. MwSt. DO Tausch . 
Sage je Anzeige 10,—- RRSBZAEN | | | | | | | | | | | | | | | D mpfehl $ 
Gewerbliche, Gelbgmhäiisänzein lab Lu ARE pl PIE EEE) 21 Versetiodenes : 


ge je Druckzeile 1, DMink. [III III III TEL TIER TTT LT TTLL LT | 
Merk (Gehe pm Ch SE TEE see: 
erscheinen). 2 B privat 
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Verkäufe 


(I 


Commodore 64 — Große Aus- 
wahl Programme (neue Spie- 
le, Programmiersprache, u.a.) 
Kostenlos Katalog. Besonde- 
re Ermäßigung! Schreiben Sie 
an deutsche oder englische 
Spr. 

©99606860060898800006 


TI-99/4A + Ex-Basic + Datta- 

sette + 2 Joystiks + 3 Bücher 
1 + 10 Cassetten mit Software 
+ viele Zeitschriften, VB 


500,-. Tel.: 05 31 /50 05 00 
bei R. Schöne in Brg. 


C-64: superschnelle Ac- 
tion:  3D-FORTRESS 
(Raumjäger, Ufos, Ener- 
giescheiben, Laser etc.) 
und 3D-Vampir und 


PANZERFIGHT auf 
Tape = 15,- + 5,- DM 
Porto (Schein/V- 


Scheck). Lieferung 48 
Std. C. Wurzer, Grünten- 
weg 14, 85 Nürnberg 


Apple Il Comp. m. getr. 
Tast. (Leistungsfäh. als 
2+), 3 Mon. alt, 2 ein- 
geb. Floppies, 22-MHz- 
VB 2400,-. 


Monitor, 
Tel.: 02922/2112 ab 
13 Uhr 


Apple Il: E. T. (Alleslerner) o. 
Geldspieler. Tamm, Solmsstr. 
43, 1 Berlin 61 


TI-99/4A: TI + EX-Basicpro- 
gramme verk. Info gegen 
Rückporto. B. Knedel, Tul- 
pengasse 16, 3171 Weyhau- 
sen. Tel. 05362/71187 


Verk. ZX 81 (Fol.-Tast. Def.) + 
16K + Netzt. + Koaxkabel + 
Rec.-Kab. + deut. Anltg. + 
Buch M.80 Prgr., zus. 120,- 
DM. Chr. Lenk, Langlütjen- 
sand 4, 28 HB 66, Tel. 04 21 / 
58 73 26 


Verkaufe Programme für VC 
0.+. C.264. G. Disser, 
Schulstr. 42, 6451 Mainhau- 
sen 

EEE EEE ER 


Verkaufe Super-Grafik- 
Abenteuer „Jetset- 
Freddy“. Mit Highscoreli- 
ste, 2 Spielstufen und 6 
Höhlen (auf Cassette)! 
15,- DM an Bernd 
Schissler, Hölderlinstr. 
3, 7117 Bitzfeld 


NIRRARRRRRRRÜRRÄRRRÜURRUURRUURRR. 
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TI-99/4A: Super-3D- 


Spiele, Datei, Adventu- 
re, Action, Grafikprg./ab 


1,- DM/Info 1,— DM. C. 
Wurzer, Grüntenweg 14, 
85 Nbg. 


ZX81-Hi-Res-Toolkit, 256/192 
Grafikpunkte + 16 MC-Befeh- 
le: PLOT, DRAW, TEXT etc. 

25,- DM 
ZX81-Turbotape, 12 x schnel- 
leres LOAD+SAVE, sehr si- 
cher! 20,- DM, zusammen nur 

5,- DM! 

Info + Blitzversand von 
S. Schmidt, Lindenseestr. 9 
6090 Rüsselsheim 5 


Verkaufe: TI-99/4A + Ext. Ba- 
sic + Joysticks + Recorder + 
Kabel + Tl-Invader + dit. 
Handbuch + ca. 70 PGM. + 1 
TI-Magazin + Chip-Buch. VB: 
700,- DM. Tel.: 0221 / 
60 76 76 


TI 99: Alpiner/Car Wars/ 
Tombstone City/Ti-Invaders/ 
Joysticks gegen Gebot. T.: 
09 11/51 27 93 


C-64-Forth. Diese neue 
Sprache jetzt auch f. C-64 
Cass.-Vers. DM 63,-/76,—. 
Diskvers. inkl. Handb. 
(einz. DM 25,-) D-BASIC, 
prof. BASIC erw., DM 33,— 
D. Luda, Staudinger Str. 
65, 8000 München 83 


Verk. TI-99/4A + Ex-Ba- 
sic + Sprach-Synthesizer 
+ Joyst.-Adapter + ca. 


100 Prg. + Zubehör. VB. 
A. Neuburger, Feldstr. 16, 
7505 Ettl. 8, Tel. 07243 / 
2.91.76; 


Verkaufe Reset-Tasten für C- 
64 und VC20. Ohne Einbau 
nur Einstecken. Für 10,- DM 
(3 Stck. 20,-) nur Schein, kei- 
ne Nachnahme. Zu bestellen 
bei: S. Valentino Frankfurter 
Str. 285, 6300 Gießen. 


Wenn ihr „Mugsy. von Melbour- 
ne House“ wollt, dann kriegt 
ihr es für 35 DM (vielleicht) 
noch bei: Jan Weigner, Carl- 
Schurz-Str. 11, 2800 Bremen 
1, Tel. 04 21 / 34 63 87 


TI 99/4 Ext.-Spiel nur für Er- 
wachsene - bitte Alter ang. 
zum absoluten Preishit von 
nur DM 10,- im Umschl. an T. 
Karbach, Remscheider Str. 
18, 5650 Solingen 1 


- 


Gratis habe ich leider nichts, 
aber ich verkaufe meine 


Telespielkassetten zum 
Sonderpreis. Superman, 
Dame, Fußball, Backgam- 


mon, Schach, Yars Revenger, 
Sky Diver, Basketball, Ver- 
lords, Breakout, Outlaw, 
Night Driver, Defender, 
Astroids, Air Sea Battle, alle 
noch in Orginalverpackung 
von Atari für ca. 25,- DM pro 
Stck. Vom ATARI 800 mit 
Disk verkaufe ich (nur Orginal, 
also nur 1 x vorhanden): ROM 
Pac-Man, Donkey-Kong, Cen- 
tiped Stck. 50,-. Disk, Ban- 
dits, Frogger, Pool 1.5, Stck. 
70,- DM. Tel. 0 56 52 / 16 27. 
Elmar Meder, Hardtstr. 1, 
3437 Bad Sooden-Allendorf 


Ankäufe 


er ee 


TI-99/4A 

Suche Extended Basic 
Modul evtl. Tausch ge- 
gen Editoriassembler 
sowie Maschinen- 
sprachprogramme z. B. 
Flugsimulator und Ex. 
Basic Spiel Miner 2049 
(USA-Version). 

Tel. 0 7132/37608 


O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
O 
8 
O0000000000000000 


O0000000000000000 


Suche 
VC-20-Programme 


Fritz, Wichdorfer Str.14 
3501 Emstal 2 


Suche Drucker für ZX81 
(mögl. gebraucht). Tel. 
s 02641/3362 


SOPEIEGESOHEHHEB08® 

Suche: Gute und billige Soft- 
ware auf Diskette für 64K Ata- 
ri 600XL. Angebote an: Mi- 
chael Ebeling, Riepener Stra- 
Be 7, 3061 Beckedorf 


TI 99/4 A, Zubehör, Mo- 


dule und Programme ge- 
sucht. Chiffre. I 


Suche für TIGG/4A Speicherer 
W., Schnittst., Ext. B., Disket- 
tengerät kpl., Per. box. Post- 
karte an: E. B., Box 200, CH- 
2540 Grenchen. 


OLHSOG22.H899H9P8898 
C-64. Suche Assembler, Pas- 
cal, Forth und andere Program- 
miersprachen. Tauschmaterial 
vorhanden. Stefan Schneider, 
Meerschlader Weg 1, 5275 
Bergneustadt 


Kontakte 


Hallo Spektrumfreaks. Ich 
möchte mit euch gerne Prog. 
tauschen. Liste, ob groß oder 
klein, an: Robert Weidinger, 
Schönmetzlerstr. 10, 8050 
Freising oder Sams.— Diens. 
081 61/4372 


Kontakt mit 2 x 81 + 
Spektrum-Leuten 


ge- 
sucht. Frank Brasche, 
Kleinreutherweg 48, 85 
Nbg. 


Internationale Info- 
Zentrale. Wenn Sie et- 
was kaufen oder verkau- 


fen wollen, dann rufen 


Sie uns an! Tel. 


08652/63061 


ODODOO00000000000000 


Comp.-Club 

Bad Hersfeld 

sucht Mitglieder! 
Kontakt über 

Roland Reyer 

Am Giegenberg 21 
6438 Ludwigsau 1 

oder Jugendhaus Hers- 
feld 


D 
O0000000000000D0D 


Tausch 


DO 
m! 
m) 
D 
D 
DO 
D 
D 
D 
m] 
D 
m) 
m) 
D 
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® 7X-Spectrum @ neue 
Programme ® Tausch- 


börse @ Info von S. Sau- 
er ® Heideweg 8, 2720 
Rotenburg ® 


Tausche/Verkaufe Atari Prg. 
16 K. Uwe Schöneberger, 
Sonnenstraße 18, 6652 Bex- 
bach 2 


Suche Software aller Art 
(Disk.), für Atari 800 XL u. An- 
tic-Hefte bis März 1984, evil. 
auch Computer u. Analog. 
Dietmar Levenhagen, Land- 
wehr 83, 3057 Neustadt 1, 
Tel. 050 32/611 81 


ZX-Spectrum 
Software und Interessen- 
austausch 


Monika Baumgartner 
4021 Linz 

Postfach 142 Austria 
Bitte Liste beilegen 
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% Weltraumspiele + + % Brett- 
spiele + + & Adventures 


oße HOMECOMPUTER 


%x% Wer wird bester Sofitware-Autor der Zeitschriften i 
HOMECOMPUTER + COMPUTRONIC des Jahre 


%*% Jedes eingesandte Programm wird berü 


und mit 120,- DM pro Seite honoriert! 


%% Wir stellen den Super-Champ in unserer Dez.,J 
./Jan. 


ber Tronic-Verlag sucht & 


85 


cksichtigt! 


ab 
%*% Die besten Einsendungen werden als Top-Programme 


gedruckt 


"Ausgabe vor! 


+ COMPUTRONIE 
AUTOREN-Suchspiel! 


% Anwender-Software + + & Ge- 
schicklichkeitsspiele 
und ...!! 


und und, 


Wenn Sie in der Lage sind, gute Programme zu schreiben, versuchen Sie es. Be- 
teiligen Sie sich an unserem großen Autoren-Wettbewerb. Jedes eingesandte 
Programm nimmt an der Auswahl teil!!! : 
Letzter Annahmetermin ist der 30. September 1985. Der Rechtsweg ist ausge- 


schlossen. 


Zur Auswahl: 

Wir stellen in jeder Ausgabe von 
COMPUTRONIC mindestens drei 
TOPPROGRAMME, in 
COMPUTER“ 1 Topprogramm, vor. 
Hierfür trifft die Redaktion die Ent- 
scheidung (unabhängig vom Compu- 
tertyp). 


„HOME-' 


Wird ein Programm zur Darstellung 
im Heft herangezogen, zahlt der Ver- 
lag ein Honorar von DM 120,- pro 
Seite. Zum Jahresende stellt die Re- 
daktion noch einmal alle als TOPPRO- 
GRAMME ausgezeichneten Program- 
me vor. Unsere Leser und die Redak- 


Einzusenden sind: 

+ + Spielbeschreibung 
+ + Datenträger 

+ + Listing (nicht unbedingt erforderlich) 


Einsenden an: 
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Bitte beachten Sie Seite 48. 


tion werden dann in der Ausgabe 
Nov./Dez.'85 das absolute TOPPRO- 
GRAMM des JAHRES ’85 wählen. 
Der Autor des Programmes wird in 
unserer Ausgabe vorgestellt und mit 
DM 5000,- prämiiert werden. 

Wir wünschen allen Freizeitautoren 
viel Spaß beim Mitmachen. 


ar 


Kennwort: Super-Software-Autor 
TRONIC-VERLAG - Postfach -— 3444 Wehretal 1 
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Software-Champion 19851 


Insgesamt 


j11 PREISE mushe 


4.-111. Preis 


108 ABONNEMENTS wahlweise 
HOMECOMPUTER oder COMPUTRONIC 


a 2 PREIS 


.. Da MUSS MAN 
MITMACHEN!!! ... 
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NEU NEU NEU NEU NEU NEU NEU ..NEU NEU NEU NEU NEU NEU NEU NEU NEU |- 


FALLSCHIRMSPRINGER 


Schneider CPC 464 


Möchten Sie gerne mal Fallschirmspringer sein und aus 10.000 m Höhe 


im freien Fall die Erde erreichen? 
Wenn ja, tippen Sie dieses Programm ein und starten Sie es. 


Dieses Spiel versetzt Sie in die Lage 
eines Fallschirmspringers der in einer 
bestimmten Zeit auf einer Plattform 
landen muß, die sich bewegt. 


Das Zeitlimit geht dabei von 30-100 
Sekunden, und sechs Spieler haben die 
Möglichkeit, gegeneinander anzutreten. 
Dabei können Sie entscheiden, ob Sie 
mit Joystick oder mit der Tastatur spie- 
len wollen. 


Durch Druck auf den Feuerknopf oder 
die Copy-Taste springt der Fallschirm- 
springer aus dem Flugzeug und fällt, 
ohne das Sie ihn steuern können, zur 
Erde. Durch erneuten Druck auf eine 
der beiden Tasten öffnet sich der Fall- 
schirm, und Ihre Aufgabe ist es, den 
Springer auf die Plattform zu lenken 
und dort landen zu lassen. Aber ACH- 
TUNG, der Springer ist während der 
Landephase starken Windböen ausge- 
setzt. Am Ende des Spiels werden die 
Punkte und der High-Score angezeigt. 
Eine glückliche Landung bringt Ihnen 
10 Punkte. Bei einer Landung neben 
der Plattform werden Ihnen 10 Punkte 
und bei Landung mit geschlossenem 
Fallschirm 20 Punkte abgezogen. 


Wir wünschen allen Schnei- 
der-Fans viel Spaß mit diesem 
Spiel! 


Wer schlau ist, besorgt sich jetzt die 
„NEUE“ CPU! 

Das Magazin für Leute, die mit Ihrem 
Computer nicht nur spielen, sondern’ mit 
ihm arbeiten wollen! 

Fragen Sie Ihren Zeitschriftenhändler 
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18 a ae > 
2a ’%*% CC) 26. 985 BY x 
38 ’%%  UERGEN WHOHL-FAHRT-MAHN 4% 
48 ERRRRRRIIRSIORIHTSORTISEERKKKIHKHH IKK, 
58 ’*xk FUER SCHNEIDER EPC-464 %% 
EU RRRRKRKIHKKKIHKHKKEKKKAKKRRKEKKKHK, 
?A CLS:ON BREAK GOSUB 1268 
sa SYMBOL AFTER 97 
98 ’FLUGZEUG 
1a SYMBOL 97,9,9,192, 224,248, 255, 254,127:5YMBOL 98:8,8.8,8,8,255,8,255:SYMBOL 9 
9,9,0.8.0,0,248,126,253 
11A ’FALLSCHIRMSPRINGER 
124 SYMBOL 1989,8,7,31,54,238,255,128,64:57YMBOL 181,8,192, 248,220, 238,254,2,4 
139 SYMBOL 192,35,19,9,7,1.2,2,2:SYMBOL 183,136, 144,32, 192,8,128,128,128 
144 ’PLATTFORM 
159 SYMBOL 194.8,0,0.0,.9.9.,09,255 
168 FAHNEN 
178 SYMBOL 195,39, 39,39, 16, 16,16,16,16:SYMBOL 196, 16,24,28,22,16, 16, 16, 16: SYMBOL 
197,16.16,16.16,16,16,16,16 
SYMBOL 198,16,48,112,298,16,16,16,16:SYMBOL 199,248, 248, 248,16,16,16,16,16 
INK @,11:INK 1,24: INK 2,@:BORDER 11:PEN 1:PAPER 8 
MODE 9:LOCATE 4,12:PRINT CHRS( 24 55 "FALLSCHIRMSPRINGER" ; CHR$C 24 ) 
IF INKEY$=""THEN 218 
229 MODE 1:LOCATE 15, 12:PRINT"BY" :LOCATE 5,14: PRINT" JUERGEN WOHLFAHRT-MAHN" 


234 IF INKEY$=""THEN 238 
249 CLS:LOCATE 4, 12:PRINT"BRAUCHST DU INSTRUCTIONEN 7" 
>54 Ak=INKEY$:IF A$=""THEN 259 ELSE IF As="N" OR Aß="n" THEN 358 
26A ’EINLEITUNG 
279 CLS:LOCATE 5.1: PRINT"FALLSCHIRMSPRINGER" 
8A LACATE 1,3:PRINT"SIE SIND EIN ee ar a 1,5: PRINT"DER 
FS SICH ZUM ZIEL GEMACHT HAT,AUF ":LOCATE 1,7:PRIN 
"EINER BEWEGLICHEN PLATTFORM ZU ":LOCATE 1.5 DRINT"LANDEN. " 
29a LNACATE 38,25:PRINT">>";:IF INKEYS=""THEN 298 
aaa CLS:LOCATE 5,1: PRINT"FALLSCHIRMSPRINGER" :LOCATE 3, 4:PRINT"STEUERUNG" : LOCATE 
1,7:PRINT"DER SPRINGER KANN MIT DEM JOYSTICK 1":LOCA 
TE 1.3:PRINT"ODER MIT DEN CURSOR-TASTEN GESTEUERT" :LOCATE 1; 11:PRINT"WERDEN, DABE 
I WHIRD DIE LOPY-TASTE ZUM" 
31a LOCATE 1,13:PRINT"ABSPRINGEN UND ZUM DEFFNEN DES FALL-":LOCATE 1,15:PRINT"SC 
HIRMS GEBRAUCHT" 
2329 LOCATE 1,18:PRINT"AUF DER ERDE STEHT EINE WINDFAHNE,DIE ":LOCATE 1,28:PRINT" 
IHNEN BEIM LANDEANFLUG SEHR NUETZLICH ":LOCATE 1,22: 
PRINT"SEIN WIRD." 
3328 LOCATE 5,25:PEN 2:PRINT"ALLES KLART":PEN 1 
244 A$=INKEYS:IF A$=""THEN 349 ELSE IF A$="J" OR At="j"THEN 358 ELSE 279 
3593 CLS: INPUT"WIEVIELE SPIELER SIND SIE (1-5)77",0:IF RX1 OR Q>5 THEN 359 
364 CLS:INPUT"WIEVYIEL ZEIT SOLL JEDER SPIELER ZUR YER-FUEGUNG HABEN (39-199 37",T 
1:IF TI<34 OR TI>16@ THEN 368 
376 CLS:PRINT"WOMIT WILLST DU SPIELEN :":PRINT:PRINT CHRS(243:" 1 "SCHRSC24);" J 
ar en CHRS(24);" 2 ":CHRSC24);" TASTA 
tr"; 
38a A$=INKEYS:IF A$=""THEN 339 ELSE IF As="1" THEN STICK=1 ELSE IF A$="2"THEN ST 
ICK=A ELSE 388 
ns A,11:INK 1,24:INK 2,9:1NK 3.9:BORDER 11:PEN 1:PAPER B:PEN #1,2:PEN #2,1: 
P R #2,3 
4A FOR A=1 TO 5:PLIE A)=A:NEXT:FÜOR ANZ=1 TO Q 
419 TAGOFF:MODE A:LOCATE 1.12:PRINT"SPIELER ";ANZ; "BEREIT":FOR PAlU=1 TO 1598:NEX 
T:CALL %&BB18:MODE 1 
424 FL$="abre":SP1$="de" :SP2$="f9" :PLS=STRINGSC 3, CHRSC219)) 
erser>e #1,1,49,24.25:WINDOW #2.29,22.22.22:UINDOW #2, 30,33,24,24:WINDOU #4, 1 
5,18,24,2 
44A 7=1NT< TIME/300 ) 
45a TAGOFF:CLG:DI:PEN 3:FOR I=1 TO 49:LOCATE 1.22:PRINT CHRS(C 1439; :NEXT:PEN 1:EI 


ELS#1:PRINT#1, "PUNKTE: ZEIT: ":PRINT#2."K" 

’ HAUPTPRIGRAMM 

EVERY 159 GOSUB 1198 

SPR=B: WI=A: SPO=R: TPO=B: RU=9: GOSUB 12998 

ZEIT=1INTC TIME/399 )-Z: PRINT #3, ZEIT; :IF ZEIT>=TI THEN 1179 
IF STICK=8 THEN 558 

JI=0YCa): IF JO>=16 THEN GOSLUB 798 

IF J0=4 THEN GOSUB 62 ELSE IF JN=8 THEN GOSUB 669 

GOTN 578 

JOS=INKEY$: IF JOS=CHR$C 224 YTHEN GOSUB 788 

IF JOS=SCHRS$(C 242 >THEN GOSUB 629 ELSE IF JOS=CHRSC243>THEN GOSUB 668 
GOTN 778 
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IF un THEN EOSUB 99a 
GOSUB 9 
A GOTO Sao 
’SPRINGER NACH LINKS 
IF SPR<2 THEN RETURN 
sa GOSUB 1978: SPO=SPO+WI-B: IF SPO<Q THEN SPO=B 
A GOSUB 180: RETURN 
’SPRINGER NACH RECHTS 
IF SPR<{Z2 THEN RETURN 
GOSUB 1978:SPO=SPO+WI+B: IF SPO>EIR THEN SPO=618 
GOSUB 1888: RETURN 
’ABSPRUNG 
IF SPR=1 THEN 748.ELSE IF SPR=2 THEN RETURN 
DI:IF A>6E39 OR A<1@ THEN A=18 
PLOT -19.-16,.2:MOVE A,2359:PRINT CHRS$( 248); :PLOT -18,-19,1:EI 
A Ru=1A:SPR=1:SPN=A: TP0=358 : RETURN 
SOUND 1,8,19,,,,3 
SPN=SPN-8:DI:PLOT -19,-19,2:MOVE SPO,TPO:PRINT SP28; :MOVE SPO,TPO+15:PRINT S 
::PLOT -18,-19,1:EI 
Ru=4 : SPR=2: RETURN 
TE=TESTt SPO+16, TPO-28) 
A IF TE=3 AND SPR=1 THEN 894 
ı IF TE=3 THEN 864 
IF TE=1 AND SPR<{>2B THEN 240 
IF TE=1 AND SPR=& THEN 869 
GOTN 588 
’ GELANDET 
A PLIC ANZ )=PUX ANZ +19: SOUND 1,119,18:SOUND 1,113,19:SOUND 1,199,20:G0T0 450 
58 ’BRUCHLANDLING 
A PL ANZ >=PUKFNZ-1B: IF PUCANZITG THEN PUC ANZ I=B 
GOTO 99R 
’ABSTURZ 
PLIC ANZ >=PUX ANZ I-20: IF PUCANZI<A THEN Put ANZ = 
SOUND 1.8,19,,,,19:SOUND 1.9,19.,.,,5:G0TD 458 
’SPEUERRUNG FUER FLUGZEUG 
DI: MOVE A,370:PRINT" ";:fl=A+14: IF A>63a THEN A=-18 
MOYE A,370:PRINT FLS$; :EI 
’STEUERUNG FUER PLATTFORM 
DI:MOVYE B,78:PRINT" ";:B=B-8:IF B{-3@ THEN B=648 
MOVE E.7E:PRINT PL$; :EI 
RETURN 
’ BEU. FALLSCHIRMSPRINGER 
IF SPR=2 THEN 1938 ELSE DI:MOVE SPO,TPO:PRINT" ";:EI 
1gam TPO=TPO-RU 
1919 DI:PLOT -19,-18,2:MOVE SPD, TPO:PRINT CHRSC2439; :PLOT -18,-18, 1:EI 
1428 RETURN 
1939 GOSUB 1976 
1A4A TPO=TPO-RU:SPO=SPO+LUI 
1959 IF SPOXA THEN SPN=R ELSE IF SPO>61R THEN SPO=618 
1mnsa GOSUB 1988: RETURN 
1979 DI:MOVE SPO.TPO:PRINT" ";:MOVE SPO.TPO+16:PRINT" "::ET:RETURN 
{SA DI:PLOT -19,-18,2:MOVE SPO,TPO:PRINT"FS" 5 :MOVE SPO,TPO+16:PRINT"de"; :PLOT - 
1A.-18,.1:EI:RETURN 
1aSa PRINT#4, PU“ ANZ; RETURN 
11A@ ’WIND 
i11A ON INTCRND#4 +1 GOTO 1129,1139,1149, 1158 
1124 PRINT#2."i":WI=4:RETURN 
1138 PRINT#2,*" J":UI=2:RETURN 
114A PRINT#2."k":WI=@: RETURN 
1158 PRINT#2."1":WIS-2:RETURN 
1169 PRINT#2. "m" :WI=-4: RETURN 
a a PFiI=6B TD 298 :SOUND 1,PAU,1:NEXT:CLS:NEXT ANZ: TAGOFF: SYMBO 
1188 FOR ANZ=1 TOD G:LOCATE 4: ANZ#2:PRINT"SPIELER ";FNZ;" ";PUX ANZ 3, "PUNKTE": IF 
PL ANZ >>HSC THEN HSC=PUC ANZ) 
A NEXT ANZ 
LOCATE 5,29: PRINT"DER HIGH-SCORE IST" ;HSC 
LACATE 18, 14:PRINT"GAME OVER": LOCATE 9,16:PRINT"NOCH EINMAL?" 
A$=INKEYS: IF A$="J"OR A$="J"THEN 74 
IF A&="N"OR As="n"THEN 1269 
24A PRINT CHRS{ 7) 
A LOCATE 19,14: PRINT" ":FOR PAl=1 TO 59R:NEXT:GOTO 1210 
AA PEN 1:INK 1,24:PAPER 8:INK @,1:BORDER 1 
a SYMeEOL AFTER 249 
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Das Spiel Steinschlag sollten Sie nicht 
ohne Sturzhelm spielen. Sie haben die 
Aufgabe, den rechten und linken Bild- 
schirmrand zu erreichen. 


Achten Sie jedoch darauf, daß Sie nicht 
von den herabfallenden Steinen getrof- 
fen werden, denn sonst verlieren Sie 
eines Ihrer drei Leben. Also seien Sie 
auf der Hut, und suchen Sie unter den 
Schutzblöcken Schutz. Beim Erreichen 
der Kästchen erhalten Sie 200 Punkte, 
und die von den herabfallenden Steinen 
zerstörten Schutzblöcke werden zum 
Teil erneuert. 


VORSICHT 
STEINSCHLA 


Bei 5000 Punkten erhalten Sie ein zu- 
sätzliches Leben. 


Das Spiel beginnt mit unterschiedli- 
chen Schwierigkeitsgraden und wird 
immer schneller. Reicht die Geschwin- 
digkeit aber noch nicht aus, kann man 
durch POKEN der Adressen 17390- 
17396 mit dem Wert 0 die Warteschlei- 
fen abbauen. 


Ein Ausstieg aus dem Maschinenpro- 
gramm ist nicht möglich, deshalb sollte 
vor dem Starten das Programm vor- 
sichtshalber abgespeichert werden. 


STEINSCHLAG 


ZX-81 


Eingabebeschreibung: 
Als Vorbereitung für das Spiel muß ein 
kleines Hilfsprogramm eingegeben 
werden. Durch RUN wird es gestartet 
und für die Erstellung einer REM-Zeile 
im Maschinenprogramm benötigt. Da- 
nach wird das Programm mit einer 
Fehlermeldung unterbrochen und muß 
durch RUN 70 neu gestartet werden. 
Jetzt kann das eigentliche Programm 
eingegeben werden. Geben Sie eine 
Zahl ein, deren Wert über 255 liegt, 
springt das Programm zwecks Fehler- 
korrektur auf die vorige Adresse zu- 
rück. 


’ ® ı ı ® 

i ı ;PRUEFSUNME ' 

FSrtrrr re Hr Hr f} 382 SCROLL [) 

rw * ı  51@ PRINT "RICHTIGER WERT ?" ' 
' * STEINSCHLAG # ® ı 31S SCROLL ı ® 

: ” * ' 328 IF INKEY%$="" THEN GOTO 328 ' 

| ee I 3 ar RE SEE | 
®. = RAR. GEIS x ®@: > ” Ass ı® 

- * * ı 388 LET ADRESSE=ADRESSE-50 ' 

r E & 2 2 = 2 2 2 2 2 2 2 2 2 23 1 288 © Br,° ' 

' ' 
®: ®: 4ıo er ı ® 
' 18 LET A$="21DAB4ES21824B3EICC ı _d2® Nr 138,5; "STEINSCHLAG ' 

\  Za60S2A7F4823227F4BE12B7CBS2BERC 1 Ebel RE ' 

- = [) 
38 EOReOShREB TEN RE STR Be |: 28 Na S > 
+ +2 

ı Aa$10 TO 0) -28) #=18+(C0ODE Asio+l T ee RAND USR 17816 h 
©: ° Sö’nexto @. ı@® 

i 52 FAST R s 

' AA RAND USER a2aRa ; ı 
®@! 72 SLOU 5 ı 

i 188 LET ADRESSE=16514 ® ı ı ® 

' 118 LET PRUEFSUMME=® ' ı 

' 128 FOR 0=1 TO 18 ı ı 
@! 138 PRINT AT 21,8; ADRESSE;" "; ı 18514 = 9 933 Bo 112 ’54', 

ı 148 FOR U=1 TO 6 ® ı 15538 o@ sS5s 16 251 42 122: ® 

' 158 INPUT WERT ı 18525 84 14 34 6 32 38.1. 

ı 188 IF WERT<256 THEN GOTO 218 ı 1i6532 S4 8 16 251 35 13.1: 
®@: 178 SCROLL ı 185538 S2 245 2081 ı 24 RER 

' 158 LET ADRESSE=ADRESSE-2 ® ’ 15544 42 ı2 54 = 62 ı N 27 

' 198 -LET Sy SUIBIEn PRUEFSUMME-P ı 165534 ı 32 a 237 185 32 N 

ı ER (RDRESSE+1 ı 16556 3 .-35..54 a 1247 ı 
% Sea LET u=u-a ı 1i8562 2 62 1.237 185 32 

ı 285 GOTO 248 ® : ıisss 35 a "98, 33:09 

ı 218 POKE ADRESSE ,WERT 1,8 Es ME = 340 = ' 

| „228 BRINT TAB Wsd46-LEN STRS WE r A R um na ana an 44. 
© ı "3Eo Let PRUEFSUNMNE=PRUEFSUNME +U @ : 15538 82 153 -i = 8 237, @® 

ı =RT | 18658 185 32 ı3 126 255 118 , 

ı "248 LET ADRESSE=ADRESSE+ ı is592 17 34 a 55 63 337 
@ | „250 IF ADRESSE=17732 THEN soro ı 16593 82 193 24 217 235 58 ı 

ı 408 ® ı ı ® 

ı 268 NEXT U : ı 

ı 278 SCROLL ' ' 
@! 2832 NEXT 

ı 8298 PRINT AT 21,8; "PRUEFSUMNE=" 

’ 
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186904 s ı12 ı8 
16610 Erre 
186186 85 14 3 
16632 5 40 
16628 24 243_ 4 
SRUEFSUMME =5295 
16634 54 ı 28 
16648 24 25 3 
1866468 23 33 5 
188552 33 33 86 
issss 51 48 
16684 u 
16678 8 08 ı2 
16676 235 42 1 
16682 112 79 
16688 Ss ı 
PRÜUEFSUNME =2745 
166954 254 4 
i6708 40 5 25 
is706 54 08 3 
i8712 14 28 
186718 2258 55 8 
186724 856 14 
16730 254 98 
i8s736 48 18 
16742 i6 241 ı 
748 w:-i3 


1574 7 
PRUEFSUMME=4431 
167 4 


9 
I 


» 
Oo 
N 
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1 
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1) 
VPS POUR BNORNMOMTINF KPRRR SERUU UNM# 


16766 227 +2 
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1) 
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0m 
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Pr 
[0] 
nr 


16784 112 3 
16798 2357 82 
16796 ss 34 


r 
[} 
co 
S 

[100] 
© 
r 
»r 
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16828 15 254 
PRUEFSUNME=4849 
16814 28 24 


BISNENND ONPUÜMYPINN UPSBOSPLNSN NEMSUGUNFS VUNSEMDSUr MUPPN 


0 2 
16828 37 284 1 
16826 119 35 
18832 42 12 
16835 ss 54 
16844 = 6.3 
165858 s2 14 
165855 42 12 
1868562 9 205 1 
16568 64 ı 
PRUEFSUMME =45565 
16874 177 6565 
168808 34 2 1 
16886 55 6532 
i6892 55 241 
16893 =3=} @ ı 
169924 17 = 
15910 ® 82 
16816 141 65 
16922 227 [= 5 
16925 167 32 ı 
PRUEFSUMME =42854 
1659354 82 8 _12 
159498 145 32 247 
16946 9 ee 25 
16952 32 + 6 
15955 35 16 251 
15954 23 32 243 
16978 6 1312 281 
16975 >34 2 i12 
16982 12 64 4 
16985 126 214 23 
PRUEFSUMME =32385 
16994 29 32 247 
179898 a2 1@® 119 
17005 52 ‚3 285 
179812 21 32 243 
178165 64 3535 166 
ı72024 12 64 14 
17839 235 214 148 
17836 i=) 2 197 
179042 8 535 152 
17945 19 255 19 
PRUEFSUMME=5222 
17854 S5 355 


15 
178608 54 9 255 
17066 ia 23 257 
17972 45 3 
17875 5ı 14 28 
17884 35 54 15 
17898 285 127 65 
17896 285 157 64 
17182 112 122 167 
17188 12 64 ı 
PRUEFSUMME =4580 
17114 55 63 
171298 3255 14 


17144 112 119 62 
17158 7 33 251 
17155 856 35 255 
17162 4 5 65 
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PRUEFSUMME=56957 
7174 =) 32 
17188 1567 40 
17186 ı12 
17192 5 
372199 ı7 
17294 59 @ 
172128 47 5® 
17216 65 585 
17222 2085 
17228 ı1 698 
PRUEFSUMME =3529 
234 5 55 
172408 8 112 
172456 241 205 
17252 8 112 
17258 112 257 
17264 195 65 
17278 235 14 
ıTerSs 8 
17282 sS5 16 
17285 s2 245 
PRUEFSUMME=4756 
17294 236 17 
173908 65 42 
17385 62 
17512 185 48 
17318 42 12 
17324 176 62 
173358 195 128 
175356 166 65 
17342 16 285 
734 54 
PRUEFSUMME=5383 
354 285 157 
17368 167 194 
17566 ı12 124 
17972 98 325 
17378 Ss2 245 
173584 45 
173598 4“ 61 
17396 229 58 
i7482 4 19 
17485 ss ei 
PRUEFSUMME=5451 
17414 81 58 
17420 6865 24 
17426 254 29 
17432 112 
174585 14 5 
ı7444 112 
17450 285 253 
17456 167 352 
1745652 157 408 
17465 8 ı12 
PRUEFSUMME =4527 
17474 65 285 
174858 167 48 
17486 ı 
17492 248 
17495 285 191 
175984 225 42 
17518 D»B 62 
175165 s2 253 
17522 156 2465 
17528 12 : 64 
PRUEFSUMME =4894 
17534 “ 22 
17548 25 254 
17546 0 45 
17552 248 2537 
1755585 149 67? 
17564 51 56 
17570 44 & 
17576 1] & 
17582 568 46 
17555 48 42 
S>RUEFSUMMNE=3599 
17594 57 .58 
176098 29 22 
17536 44 45 
17812 s5= 42 
17615 25 28 
kani-te 7 SE. 42 
176358 28 28 
17536 33 Sa 
17642 35 49 
1764 28 


17666 239 247 2 
175672 23 4 
17678 12 0 
ı1755% 7 155 
17598 8 
176986 17 2 
17792 135 
ara 22-3 & 
>RUEFSUMME=5682 
17714 @, 52 
17728 3 3 
177265 ®@ 175 
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MAD SPACE 


ZX-Spectrum 


SOS***SOS***SOS***ANDRO 1 meldet 
starken Energieverlust***SOS***SOS***SOS 


Raumstation Andro 1 meldet dem 
Hauptquartier ständig steigenden Ener- 
gieverlust. 

Daraufhin erhalten Sie den Auftrag, 
mit Hilfe einer Raumfähre Energiekri- 
stalle einzusammeln und die Raumsta- 
tion zu versorgen. Dies ist aber nicht so 
einfach, da Andro I von einem un- 
durchdringlichen Magnetfeld umgeben 
ist. Sammeln Sie also zunächst minde- 
stens fünf Energiekristalle ein, und kop- 
peln Sie dann erst an der Raumstation 
an. Vorsicht aber bei den umherhän- 
genden Meteoren, denn ein Zusam- 
menstoß bedeutet das sichere Ende. 
Nach dem Starten der Raumfähre ist 
eine Unterbrechung des Fluges nicht 
mehr möglich. 

Jetzt aber genug der Beschreibung, und 
guten Flug. 


Besonderheiten des 
Programms: 


Um auch selbstdefinierte Zeichen mit 
SCREEN überprüfen zu können, wurde 
der Zeichensatz ins RAM kopiert (Zeile 
9000). Danach wurden in Zeile 9010 die 
Kleinbuchstaben durch die Grafikzei- 
chen ersetzt. Deshalb müssen die 
Kleinbuchstaben im Programm selbst 
auch als Kleinbuchstaben eingegeben 
werden. 


LET hsc=ö 
50 SUB aaa 


LET sci=8: LET sc=9: LET a=sil: 
BÜRbER 8: PAPER 8: 


LET met=15 
PRINT AT 18,15; 


INE 7: BRIGHT 8: CLS : 
INK. 2; 


POKE 23607,249 schaltet die neuen 
Zeichen ein. 

POKE 23607,60 stellt den alten Zu- 
stand wieder her. 


LET b=1: 


LET schiffe=3 


PÜKE 23607 ,243 


BRIGHT 1; "sh";AT 11.155 INK 2; BRIGHT 1; "ij" 


sa INK 3: BRIGHT 1: FLOT 8,8: DRAU 255.8: DRAU 8,175: DRAW -255,8: DRA 


A,-175: 
55 FOR i=1 TO met 
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INK 7: BRIGHT 8 
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2 en SIR £RHNDEZ1 >: LET s=INT <RND#Z3+1>: IF SCREEN$ (x,s3£>" " THE 
za PEINT AT x,s9;5 INK 55 BRIGHT 1;"a": NEXT i 
sa FÜR i=1 TO 18 ; 
18A LET x=INT <RNDKZ1>: LET s=INT <RNDKZ9+1>: IF SCREEN$ (x,49€£>" " THE 
N Ga Ta 184 
118 FRINT AT x,s5 INK 65 BRIGHT 15"b": NEXT i 
128 LET x=B: LET 3=8 
145 PRINT AT a,b; INK 4; BRIGHT 15 "k" 
= ed #8; AT 1,85 "PUNKTE=";sc;AT 1,135 "HIGH=";hec; AT 1,23; "SCHIFFE=" 
;schiffe 
185 IF INKEYS="" THEN GO TO 186 
134 GD TO 278 
za6 LET ail=a: LET bi=b 
216 LET a=a+x<: LET b=b+y 
z2a IF a=21 OR a=d OR b=31 OR b=A THEN GO SUB Zaa6ı 
248 IF SCREENS (a.b)£>" "” THEN GO SUB 1806 
254 PRINT AT al,b1;" ";AT a,b: INK 4; BRIGHT 1;5"Kk" 
zei IHKEr$&="" THEN GÜü TO 286 
270 INKEEY$&="3" THEN LET x=-1: LET 9=8 
25a INKErS&="z" THEN LET x=1: LET = 
234 INKEYS="m" THEN LET x=B: LET y=1 
a8 INKEY$="n" THEN LET x=B: LET 3=-1 
31# TO zu4 
1A SCREEN$S (a,b>="a" THEN GO TO 204 
1818 STREENS ©a,b>="b" THEN GO TO 1596 
1B2A LET z$=5CREENS (a,b) 
18358 IF z$="®" OR z$="h" OR z$="i" OR z$="j" THEN GO TO 1196 
ıin4a RETURN 
11GA IF sc-sci<5A THEN GO TO Zaun 
1185 PRINT AT a1,b1;" " 
1118 BEEF .1,36: BEEP „1,36: BEEF „1,34: BEEF .1.38: BEEF .1.36: BEEP .1i 
‚#6: BEEF „1,38: BEEF .1,.3%8: BEEF .1,48 
1128 CLS : FOR i=-38 TO 28: PRINT AT 11.13; INK 9; PAPER INT CRNDK7I+L; 
FLASH 1; "BOHUS": BEEF .967.i+5: BEEF .B87,i+18: BEEP .867,i+15: NEAT i 
1138 CLS : LET sc=2c+180: LET met=met+z 
1135 IF sc>hsc THEN LET hescosesc 
ii4df LET a=il: LET bel 
1145 LET sci=sc 
1154 GO TO 45 
1586 PRINT AT al,.bil;" " 
151a FOR 1=1 TOD 2: FOR i=2 TO 7: FRINT AT a,b; QVER 1; INK is BRIGHT 1;" 
ai 
2. BEEF „Aus. di+i+l: BEEF .AA69,35+i+l: BEEF .BBG6.4B+irl: NEXT i: NE 
“Tı 
1536 FRINT AT a.b;" " 
15409 LET sc=sc+tiß 
1554 PRINT #8; AT 1,8; "FUNKTE=";8c 
15EA IF sc>hsc THEN BEEPF „81:58: LET hsc==c: PRINT #8; AT 1,135 "HIGH=";h 
sc 
157Aa PRIHT AT a.b5 INK 4; BRIGHT 1;5"k": RETURN 
aaa PRINT AT a1,b1;" " 
za1a FOR i=s1 TO 4: PRINT AT a,b: INK is; BRIGHT 1;5"c": BEEF .805,40+2%i: 
HEXT i 
2A FOR i=4 TO 7: FRINT AT a,b; INK is BRIGHT 1;5"d": BEEP .85697,580: NEX 
ng! 
25356 FOR i=1 TO 5: PRINT AT a,b; INK 8-i5 BRIGHT 1;"e": BEEF „Bbb8,4u+r2% 
i: NEXT i 
2u4a FOR i=i1 TO 7: FRINT AT a,b5 INK is BRIGHT 1;5"f": BEEP .885.45+i: BE 
EF .ABS,d@+i: NEXT i 
25a FOR i=? TO 1 STEP -1: PRINT AT a,b; INK i;"c": BEEP „065,50: BEEP 
Aa5.40: BEEP .965,38: NEXT i: PRINT AT a.b;" " 
2A58 LET schiffe=sschiffe-1: PRINT #8; AT 1,23; "SCHIFFE=";schiffe 
za?a IF schiffe=8 THEN GO TO 7Baa 
zu58 LLS : LET a=sil: LET bel: GO TO 45 
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aaa PÜKE 23687,66 
G1a CLS : PRINT AT 9,18; "Deine Punktes" ;sc;AT 11,5; "Hoechste Punktzahl 


;hsc 


Sn 


PRINT ’’"Neues S5Piel? Jin" 

PAUSE 8: PAUSE de4: IF INKEY$S="" THEN G0 TO 7625 

IF INKEY$="n" THEN GO TO 8993 

ELS5 : GO TO 28 

FÜKE 236507 ,690: STOP : 

CLS : PRINT AT 11,18; INK 15 PAPER 65 FLASH 1; BRIGHT 15"BITTE WART 
: FOR i=15616 TO 16333: FOKE 48354+i,FEEK i: NEXT i 

FÜR i=64526 TO 64528+( 11%5 9-1: RERD a: PÜKE i,a: NEXT i 

DATA 69:.665;BIN 19618198,130,BEIN 18691901,.BIN B11BBB11,BIN 93019188, 


DATA 56,36: 24, 36, 36, 24, 36:66 

DATA 8.8,2,24,8,8,8,8 

DATA 8,8:.48,8,BIN BB111a0A,16,24,8 

DATA 8:64,36, 17,6,588,BIN 186190818, 1 

DATA 138,68:.48,3,BIN 118691964,16,36,.BIN 115965516 

DATA 15:24:16:BIN A1111968,BIN 81096198, BIN B1GRBR11,EIN 11861118.6B 

N 18119188 

17a DATA BIN 11110099, 24,3.BIN G6@1111A,BIN BR1aka1d,BIN 11068B14,BIN 8 

116511.BIN BaA1a11a1 

188 DATA BIN 16118168,BIN 11861118, BIN BiaRERI1,BIN B1ERR1HB, BIN: 81111 

9,16:16.15 

31359 DATA EIN 69161161,BIN B111R11,BIN 11905818,BIN BR1ERB1H,BIN Hualil 

2,38:.3:.BIN 111100648 

zua DATA 8,24, 36,126, 255,255:BIN 81911816,129 

218 EÖRDER 1: PAPER 1: INK 6: BRIGHT 1: CLS° 

220 PRINT AT 8,2; "Brauchst du eine Erklashrung 7" 

36 IF INKEYS="" THEN GO TON 9230 

?48 IF INEEY&="n" THEN RETURN 

3258 LCLS : PRINT AT 8,125 FLASH 15 "MAD SPACE": PRINT " Ein schnelles 
Piel fuer Schnelle Leute," 

SE FRINT "Die Raumstation Andro 1 braucht drinsent Enersie.Deshalb bis 
Jumit deinem Beibaot unterwegs" 

3274 PRINT "Um die Enersiekristalle einzu- sammeln. Doch in dem Raumsek 

tor sibt es auch viele Meteoriten die du nicht Rammen darfst" 

3284 PRINT "Wenn du Senrus Kristalle hast oder an die vebrisen nicht h 

 erankomst dann kannst du an die Station ankorpeln das darfst du" 

9298 PRINT "aber erst dann machen wenn du Mindestens 5 Kristalle hast 

! nachdem Ankopfpeln Sibt es neue Kristalle aber die Zahl der Mete 

ıore erhoeht sich dabei" 

ı 3348 PRINT ’’"TASTE DRUECKEN" 

'9318 IF INKEY$="" THEN GO TO 9318 

ı 3320 CLS : PRINT "Es stehen dier 3 Beiboote zur verfuegunga" 

ı 3330 PRINT "Das Beiboot laesst sich nicht anhalten sondern Fliest in d 

Iier Richtung weiter bis eine andere Taste Sedueckt wird" 

ı 9349 FRINHT "Steuerung: " 

3355 PRINT "A=HÖOCH Z=RUHNTER" 

S3365A PRINT "M=eRechts N=Links" 

FÜKE 222497. 2493 

FRINT "a=METEOR": PRINT "b=ENERGIEKRISTALL" 

FRINT "sh": PRINT "ij= RAMSTATION” 

FOKE 236597 ,658 

PRINT "Alles Klar 7 Taste Druecken" 

IF INKEYS="" THEN GO TO 9428 

RETUFRH 
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SE n x 


Listing-Korrektur Heft 1 Programm „Irrgarten“ 


So wie das Programm abgedruckt ist, läuft es nicht. In Zeile 460 ist ein Fehler: 
ALT: 460 If Q=-VAL“1* THEN IF I$(X+X1,Y+Y1=“ “THEN GOTO VAL“530“ 
NEU:460 IF Q=VAL“1“ THEN LET I$(X+X1,Y+Y1=“ “ 

465 GOTO VAL“530* 


Ich hoffe, daß ich bei der Umstellung richtig liege, damit noch andere ZX-81-Fans ihre Freude an dem tollen Programm ha- 
ben. 


Michael Brinkschulte, Unna 
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MILLIE, DIE MILBE 


ZX-Spectrum 


Ein Geschicklichkeitsspiel mit 
Strategieelementen 


Millie ist eine kleine, unschuldige Was- 
sermilbe auf der Flucht vor dem Ente- 
rich Roderich. Spielfeld ist ein Teich, 
übersät mit Wasserrosen, unter denen 
Millie Schutz vor dem gefräßigen Ente- 
rich suchen kann. Sobald Roderich 
Millie nicht sieht, ist eine Verfolgung 
ausgeschlossen. Doch Millies Tauch- 
manöver strengen natürlich sehr an, so 
daß ihr nach und nach die Puste aus- 
geht. Sie muß also so schnell wie mög- 


lich wieder auftauchen, um Luft zu ho- 


dann mit Riesenschritten die Verfol- 
len für erneute Tauchmanöver. 


gung von Millie aufnehmen. Auf eine 
Spielerschwernis sei hier noch kurz hin- 
gewiesen. Solange Millie sich an der 
Wasseroberfläche befindet, tankt sie 
Luft für ihre Tauchmanöver (angege- 
ben als ZEIT oben rechts). Diese Zeit 
nimmt ab, sobald Millie unter einer 
Blume verschwindet. Sie nimmt aber 
um so schneller ab, je ‘länger Millies 
Leben währt. 


Millie läuft auf allen 16-K- und 48-K- 
Spectrums. Nach dem Start mit RUN 
folgt eine kurze Spielanweisung. Dann 
baut sich das Spielfeld auf, was einige 
Zeit in Anspruch nimmt. Gestartet 
werden kann das Spiel nach einem 
fröhlichen Quaken des Enterichs und 
dem Piepsen von Millie. Roderich wird 
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% % % * x 4 % % Nutzung, sondern auch die Übereig- 


HINWEIS: 


Der Verlag wird vom Autor berech- 
tigt, seine Manuskripte (Programm) 
zur Darstellung im Heft heranzuzie- 
hen und abzudrucken. 

Der Autor erklärt sich mit der Liefe- 
rung seines Programmes oder seiner 
Beiträge ausdrücklich bereit, die Ver- 
wertung durch den Verlag freizuge- 
ben, d.h., er überträgt nicht nur die 
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nung des Computerprogrammes und 
der Beiträge. 


Der Autor verpflichtet sich nur solche 
Programme anzubieten, die eigene 
Entwicklungen des Autors sind. 


Mit der Veröffentlichung oder dem 
Anlauf des Programmes und der Bei- 
träge ist dem Verlag gestattet, auch 
eine anderweitige bzw. weitergehende 
Verwertung vorzunehmen, da der Au- 


ERREGER KT TR N N N 


tor dem Verlag das Copyright gegen 
Honorar gestattet hat. Die Verwer- 
tung durch den Verlag ist unbe- 
schränkt und unwiderruflich, wenn 
nicht 10 Tage nach Zusendung der 
Unterlagen durch den Autor wider- 
sprochen wird. 


Haben Sie Interesse? Haben Sie noch 


Fragen? 


Setzen Sie sich telefonisch mit unserer 
Redaktion in Verbindung! 
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KNOBELN. 


Apple II 


Ein Denkspiel für allerhöchste Ansprüche 


u an 


K.uobein ist ein Spiel, bei dem Sie 
nicht Ihre Schnelligkeit bei Schieß- 
übungen unter Beweis stellen müssen. 
Bei diesem Spiel treten Sie gegen Ihren 
Computer an und versuchen, diesen 
durch logisches Denken zu überwin- 
den. Natürlich gehört auch etwas Glück 
dazu. Sollten Sie also nicht gleich gegen 
Ihren Computer gewinnen, verlieren 
Sie nicht die Nerven und tun Sie nichts 
Unüberlegtes (siehe Foto)! 

Zum Spielablauf selbst brauchen wir an 
dieser Stelle keine besonderen Erklä- 
rungen zu geben, da in der Spielbe- 
schreibung alles genau und ausführlich 
erläutert wird. 


Wir wünschen Ihnen viel 
Geduld und etwas Glück! 


3 22;PRINI 
": GATN 235 


75 HOME : 

73 YS1) = B:YS2)=M 

ern FnR 1? = 1 TO ?: REM ZAN?ZAHL 
DFR DURCHGENGEK 


# 

' 
®: & aA SP = A: REM KWIRFELNDER SPIELE ı®@ 
ı A REM ## KNOBELN ## = EEE: DU 

} u ! ] = .: 3 = a 
®: , REM #4 CC) D.JAHNKE AND 4 & 1am KSC1) = AK?) = A \ 
> Je 178 VTAB £1>: PRINT "DL HAST "Ks ) 

ı 2 RFM ## P.WUORTHMANN 1924 ## 13" KARTEN " ) 
®: 5a & 17? YTAB 6): PRINT "ICH HABE "K ı® 
ı 3 SPEED= 255: HOME : TEXT : HOME Sc23" KARTEN " ' 

ee! 173 IF FIG = 1 THEN VTAR (183: FLASH |} 

ı 4 VTAB iA: FOR I = 1 TO 40: PRINT ) : PRINT "ABl FGERUNDE ! "3: NORMAL ı ® 
"gu;: NEXT I : PRINT > 
ee non DETLEF IMD FRIRIKE ® : 174 WTAR 18): PRINT KARTEN" KAR ı ® 
' DFE YnN DETLEF UND PATRIK (18) ARTEN" K 
ı 6 YTAB 14: FOR I = 1 TN 4a: PRINT = „TEN LIEGEN Aur DEM TISCH! i 

yn;; NF% 1 ?s | = - 

® : ? FÜR I = 1 TN 4anmn: NEXT I ® Fan GASUR ?Saf: REM KUIRFELNK ‚ 0 
ı ja REM KKkKNMBEL N iohkıkkk >1a GMSUR 2aaR: REM KWIRFELDARST , 

® 20: ie oe ® 22m PEM FENDERUNGSPROGRAMME ı ® 
Pr ı 2=a REM *HAUPTPRÜGRAMME 220 „FOR J = 17102 - 
4A HMME 232 St = @ i 

ı 45 GNSUR 1AaR: REM #BEGRISSUN ® 235 YTAB <11) 4 ® 
. G* PRINT "WILLST DU A. > DEN HUR ı 

® ı 46 FOR I = 1 TO 1500: NEXT : HOME = F STEHENLASSEN" er‘ 
' PRINT " B. 11-2 MIRF - 

ı 47 GOSUB 2aam: REM  #WIRFELDARS EL ENDERN " ' 
®. TELLUNG* 8 PRINT s C.>ALLE WI a 
'ı sa PRINT "BENDETIGEN SIE DIE SPI RFFL_ENDERN ; 

' ELREGELNE IND 7 Ns PRINT D. JALIS: ZUFI 
®ı em GETAS: IFA$C > "j" AND As = &-FN FINF 1 MACHEN '@ 
: <> "N" THEN 60 GET HH$: IF HH$ < "A" OR HHS$ ; 

ı 7a IF A$ = "l" THEN GAsUup 1maman >» "D" THEN WTAB £1593: PRINT ' 

s ‚ : REM * SPIELREGELN %* & "FALSCHE EINGABE! ": VTAR (1 ı® 
) ' 

1] En 
e ® ı® 

} 

‚ N 
®. 
L 
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EA= ASC CHHSI - 64 


ISy=Y4 +1 


A KSC2) = KSC2) + D2ZCLI:KARTEN = 
AFIG = 1: 
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YTAR ©1193: PRINT " 


PRINT " 
PRINT " 
PRINT " 


PRINT" " 


DN A GOSLUB Fand .,31AM,25Aa,25 
an 
IF SC = 1 THFN 232 


EOsUB Fan: REM KLUIRFELDARST 
FLLINGK* 

NEXT. 

EOSIUR 4aam: REM EWLRFAUSWERT 
LINGE 

sosuß Sana: REM KCOMPUTERZUG 
+ 

REM #SIEGEREHRUNGE 

YTAB <11) 

PRINT "DU HAST "DISC1)" GEWI 
RFELTI® 

PRINT "ICH HABE "D1$C25" GEM 
- JRFELT!" 

PFINT "DRICKE EINE TASTE": GET 
A$ 


IF P£1> = PC2) THEN 178 

IF P£i> = 1Aaaaa THEN KS(C2) = 
13: GOTN Fan 

IF PC2) = 1amaam THEN KSC1) = 
13: GNATN EA 

IF FIG = 1 THEN 595 

IF P£1> > PC2> THEN 440 

IF D2C2) > = KARTEN THEN KS 
13 = KSC1) + KARTEN: GOTN 5 
aa 

KSt1) = KSC1) + D2CZI:KARTEN = 
KARTEN - D2C23: GNTN 178 

PEM 

IF D2C1) > = KARTEN THEN KS 
2) = KSC2) + KARTEN: GNTO 5 
ma 


KARTEN - D2C19: GATD 178 


IF KSC1) = A THEN 595 
IF KSt2) = A THEN 595 
GOTN 178 


IF Pi1> > Pi2> THEN 53#A 

IF D?2t2% > = KSC?2)Y THEN KSC 

>23 = fl: GNTn Kan 

KSC{?) = KSC2> - D2C2): GOTO 1 

ra 

IF DI» = KSC1> THEN KSC 

13 = A: GnTn Fan 

KSl15 = KSC1I - D2C1I: GOTO 1 

7a 

IF KSC19» < KSC2) THEN BIS = 

"ni HAST "ya 2y = MED + 1 
sıTtn 6? 

nI& = "TCH HABE "War = YSL 

1)-+ 1 

HIMF : FLASH 

YTAR £123: PRINT GTS"DEN "17 

".TFN ARSCHNITT GEWMINNEN I" 

FOR IA = 1 TO 1AMA: NEXT IA 

NORMAL : HAME 

IF IX = 1 THEN 739 

NEXT JZ 

IF YSc1i> = YSC2) THEN IX = 1 

: 2 = 3: GDTO.9M 

IF vSe13 £ YSC23.THEN RIS = 

"ni HAST ": GNTn 75A 

nI$ = "ICH HABF ":FLAG = 1 

FI ASH 

YTAR £12%: PRINT RIS"DAS SPI 


7rA 
rsA 
aan 
as 
an 
arıa 


aaa 


AA 
1ARS 


1a1A 
1a15 
1A?A 
1m2A 
man 


15a 


FI. GEWMHHEN I": GOSUR 57AA 
FÜP IA = 1 TO 1AAA: NEXT IA 
HAFMA 

HNMF 

NTAR 172: PRINT " NNCHMRA 
1:£-.1/937# 

GET As: IF AS < > "I" AND A 
4 > "N", THEN 96A 


IF AS = "I" .THEN FLFAR : GATN 


1A 
HIIME YTAR £129: PRINT " 


- END FE -": YTAR 


21: END 

PEM +REGRTSSUNGERRRH EHE HH HF 
+r+t 
FOR T.= 1 TO 7:O&C I) = "": NEXT 
I 

HNHF : YTAR LAN 
FLAG = MA 

FIP T= 1 TN 2 

HTAR (1A 

FÜP KK =-1 TN ?1: PRINT "X"; 
: NEXT K 

PRTHT 

NEXT TI 


IF FLAG = 1 THEN 114A 

YTAR Ca 

FOR 1 = 1 Th 2 

HTAF 1A: PRINT "HK# 

rr" 

NFYT T 
FLAS = 1: YTAR 1? GATO 1A 
an 

PFM £HAMFNSFTNSCHTERUNGE 


FOR I = 1 m? 
READ PC T) 
NEXT I 


HATA nigm ‚0 u EN VOR, yj8 "N 


" R " " 


FiPR I.= 1 707? 

FOR K = 6 N 1 STEP - 1 
Mk + I) = McK) 

NEYT K 


Mi = Bee Th 

VTAR Kta: HTAR r14) 

FLASH 

FÜR K = 1 TO I: PRINT DsCcK) 
Noir NESEK 

PRINT "" 

HOFMAI 

NEXT 1 


FOR I = 1 TN 1AMA: NEXT I 
YTAR (20) 
FFTIIRN 


FFTIIFN 


PEM #UIRFFLDARSTELTUNGE 
IF FICK = 1 THEN ?956 
FOR IT = 1 MM 6 

RFAD Ase TI. P&CITI.CHCT) 
HFXT TI 


a FUrK = 1 
IF SP = 1 THEN YTAB 1293: GoTn 


2952 
YTAR (7) 
PRINT " 
PRINT " 


PRINT ® 


IF SP = 1 THFN YTAR (29: GOTO 


PasA 

YTAR €7 > 

PRINT As uie 1 33, ASCHE? 33. Ar 
ME3>3 >, 

PRINT Pt 1 33. BESCHE FI). Pt 
ME3>>. 

PRINT TSCHEI II. CHEHEZII.CEL 
ea233, 

PPINT 

PFTIRH 
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DATA „ " ’ " + " > " "„ - ux 
" > " “ f " x s ux " ; " * „ mr " 
x" ’ 0% x" > “ " 5 "% x” N x x" 
- " % " > „b ; x" 5 a x" - ne x, 4 
+ " 


REM #UIRFELNK 

FOR I = 1 103 

WEID= INTChK RUND eIYI + 
f 


NEXT I 
RETUPN 


"REM #STEHENIASSENK 
I 2Y=V- 1 
RETURN 


RFM #KIRFEL ENDERN* 
“TAB 119: PRINT " 


PRINT "WIEWTIELFE WIRFELE 1-2) 
72 "; 


GET L$: PRINT 1$ 


IF L$ < "1" OP L$ > ">" THEN 


YTAR 11: PRINT "FALSCHE EIN 
GARE!": GOTO 3193 
L= VAL (L$) 

FOR I = 1 01 

YTAR 11): PRINT " 


PRINT "WELCHER MIRFEL?"; 
HET %%$: PRINT %$ 


IF #6 < "1" OR %& > "3" THEN 


YTAR 11: PRINT "FALSCHE EIN 
GARFI": GNTO 3135 
= VAL CH) 
MER = INTCE* RUND .K1I + 
1 

IF X = Yn THEN 3138 
un =% 

NEST I 
un= MA 

YTAR 11: PRINT " 


RFTIIRN 


REM KUMTAUISCHEN* 
= 

FOR I = 1 70 3 
IFWII=ETHENK=X + 1: 
MiXIe I 

NEXT I 

IF x < 2 THEN 
"NICHT MNGLICH":SC = 1: YTAR 
15: PRINT " 

": GATn 3574 
MEMEID> = 1:MEME2I) = 
EX RUND e133 + 1 

PFTURN 


INT £ 


RFM #WLIRFALISWERTUNGE 

RFM #S0RTIEREN# 
FLAG = A 

FOR I = 1 mM.2 

IF WEI > = MEI + 15 THEN 
4mean. 


AH = METSEBETD = MET + 1 I:Mel 


+1)=H 
FIRG = 1 

NEXT I 

IF FLAG = 1 THFN 4daim 


IF MEI> = 1 THFN PISPI = 1A 
ARAAR:DIKCSP> = "EINEN GENERA 
I ":D2SPI = 12: GATO 415 
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YTAB 15: PRINT 


4aanı 


A DIECSP) = 


IF 125 = 1 THEN PCSP> = We 
13 1Amam:DIEKCSPI = "FINEN 
MAX " + STRE CHELII:DACSP) = 
MEI: GATN 415A 


IF MEIY = IIC®> THEN PrSP) = 
Mey * IamR:DIECSP> = "EINEN 


HARTEN" :D2CSP) = 2: GNTN 41 
A 
: FLAG = 1 


FOR I = 1 T0.? 
IF BETS = MEI + 13. + 1 THEN 
4125 


A FLAG = A 


NEXT I 

IF FLAG = 1 THEN P£SP) = 1m 
aan + EIS K 1AA:DISCSPI = "E 
INF STRASSE" :D2CSP) = 2: GOTN 
4150 


STR$ (LK1I) + STRE 
MC23) + STRE ChIC3)) 
> PSP) = MAL CDISCSPII:D?CSP 
»=4 
RETLIRN 


REM #TOMPUTERZUGE 


= SP = 2: FYG = M 


GOSUR 25Am: REM #WIRFELNK 


SnaA= 1 


GOSUR 4mAM: REM KAUSWERTENK 
IF PC1) < PC2) THEN 5555 
GOSUB Zama 

FOR IA = 1 TM 1ama: NEXT IA 


IF Y = 1 THEN Selm 

FOR II = 1 MY -4 
AR = DA + 1 

IF LI?) = 6 THEN Gnsup 35a 
A: snTn Sasa 

GnTn Sara 

GOSUR 4aaa: REM KERNEUT ALS 
MERTEN* 

IF PC2> > PC1> THEN 
1: GaTn ssss 

ann Saaf 

IF UIC?Y = 1 THEN WEiY = INT 
6% RUND 133 + 1: GOTO sas 
A 

IF LIE®3 = 1 THEN MeI% = INT 
EX RUND CI) + Sek?) = INT 
e&*% RND <19> + 1: GNTO sas 
3 

IF MIEID> = ME2Y THEN IB) = 
INT CE * PND 193 + 1: GnTn 
sasa 

IF ME?) = WER) THEN UOI) = 
INT 6% RUND £19% + 1:- GnTn 
sasa 

GOSUR Sam 

snıtn Sasa 

GNSUR aan 

FOR I = 1 TN 1man: NEXT I 


IIi=W- 


IF oA Y THEN Sßia 
IF FYG = 1 THEN 556A 
NEXT 1. 

sarn Sei 


GOSUR Panda 
IF OA = Y THEN Sein 
IF Pc?» < 1maM THEN FYG = 1 
: FOR IA = 1 TN 1mam: NEXT I 
A: GT sa3s 


RFTLIEN 
RFM $ .NIBEL. % 
HAPFMAL PÜKE - 16268, 


IF FLAG = m THEN Sesa 
PRINT "": REM TTRI G 

An = PEEK € - 16324): PNKE 
- 1E36R,M 
IF AD < 127 THEN 5725 
PRINT "": REM FTRLG 
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Kamm  PETURHN 

99339 PEM %* SPIELREGELN # 

1ARAA HOME 

1amia YTAR 1: HTAB 14: PPINT "K 
NHNORFL MN" 

1mm?A INYERSE : FOP I = I TN 4m: 
PRINT "" "5: NEXT 1: NORMAI 


1mmaa PNKE 34.3: HIMF 

{mm SPFED= 4A 

1masa PRINT "KNNBELN IST EIN WUE 
RFELSPIFL MIT DREI" 

{mama PRINT "LLERFELN. " 

1am?a PRINT "MAN HAT MAX. DPET I 

LIERFE. " 

PRINT "DER COMPUTER HAT MA 

“. DIE GLFICHF ANZAHLAN WUER 

FEN WIE DER SPIELER. " 

1amam PRINT "MAN MIISS ZWEIT ARSCH 
NITTE GEWINNEN LM" 

1mtan PRINT "DAS SPTIEI 

1att@ PRINT "MAN KANN EINEN ABST 
HNITT GEKINNEN. " 

1mt2R PRINT "INDEM MAN :" 

1mts3a PRINT " 1.3 EINEN GENERAI 

GFWORFEN HAT" 

1mt4a PRINT " 2.3 KEINE KARTE H 
AT LIND KEINE KARTE" 

1m1sa PRINT " AUF DEM TISCH 

LIEGT" 

1mi6m PRINT." ®.> IN DER ABLEGR 
LUINDE KEINE KARTE " 

1m1?a PRINT " MEHR HAT" 

mean PRINT : PRINT SPTC 135:"R 
ANGLISTE" 

1mtaa PRINT " 1. 

1m195 PRINT 


1naeA 


zıı GEWINN 


» GENERAL" 
PRINT "REDEITIUNG : 


GEMINN FINES ARSCHNITTES": PRINT 
1aPamn AP = 1:BP = 1:CP = 1: GOSUB 
13AAA 
1a?1a FORT =2 71T K6 
ım22a° PRINT : PRINT " "T".> MAX 
"9-7 
1m223M PRINT : PRINT "BEDEUTUNG 
"3 - 1" KARTEN": PRINT 
1m24A AP = B- I:BP = 1:fP = 1: GASUR 
1aaAA 
1a>SA NEXT I 
1m255 SP = 1 
1m2eAR FOR TI = 7 TO 11 
im26S IF I > 9 THENSP=AMA 
im2ea PRINT : PRINT SPCC SPY:1" 
„> HARTEN" 
ıa?9A PRINT : PRINT "PREDEUTLUNG : 
® KARTEN": PRINT 


1aaaa AP = 132 - T:BP = AP:TP = AP 
sasııp 19aAM 


Human Engineered Software, 150 North Hill Drive, Brisbane, CA 94005 


800-227-6703 (in California 800-632-7979) Dept. C20 


8 CIRCLE 133 ON READER SERVICE CARD 
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1a31A NEXT I 

1aA=?A FÜR T=1 TI 4 

1m23@A PRINT : PRINT I + 11". ST 
PASSE" 

1a24a PRINT : PRINT "BEDFUTUNG 
2 KARTEN": PRINT 


1a3S5Aa AP = 7 - T:BEP=#6- I!I:CP = 
5 - T: Gasıır 19amaA 
1m2FRAa NEXT TI 
1n37A PRINT PRINT PFINT "DAN 
ArH KNMMEN DIE DREISTELLIGEN 
ZAHLFN. DIE MAN AUS DEN DRE 
IT WIIERFELN HERSTELLT.WUNBEI D 
IE HNIEHEFF IIEBFF DEP NIEDRIG 


FREH" 

Iimaean PRINT "?AHL STEHT." 

1maaM : PRINT : PRINT : PRINT : HTAB 
1A: PPINT "HINRLNDE" 

1a4aR PRINT : PPINT "DER.IFNIGE.D 


FF DFN NIEDRIGEREN WURF HAT" 


1a41M PRINT "BEKNMMT SMVYIELE KAR 
TEN. HIE DER HOFHERE" 

1md2a ° PRINT "WURF WERT IST." 

1m43@ PRINT "WENN KEINE KARTE ME 
HP AUF DEM TISCH" 

1m44m PRINT "LIEGT.BFEGINNT DIF R 
UECKRUNDE. " 

1m4Sa PRINT : PRINT 
"RUIECKPUNDE" 

imden PRINT : PRINT "DER.IENIGE.D 
ER DEN HNEHEREN WIIRF HAT" 

1m47a PRINT "KANN SOVIELE KARTEN 
ABLFGEN.MTE SEIN" 

1maam PRINT "WURF WERT IST." 

1msmm FOR I = 1 TM aaa: NEXT 

1m61M PRINT : PRINT : PRINT : 


HTAB 1A: PRINT 


PRINT 


PRINT "ALLES VERSTANDEN 7C 
IN 3" 
1AR2@ GET INS: IF UNE <> "1" AND 
I <> "N" THEN A620 
1m62a SPFED= 255: PNKE 34,M: HOME 
1meam IF IIX$ = "N" THEN 10000 
1A6S@ RETURN 
12999 GOTN 2anaa 
1amarm PRINT AsCAP). Al RP).AKCCP) 
1aa1a PRINT RSCAP >. R$CBP),BSCCP) 
1am24 PRINT CSCAP),CHCRPI.CHCCP) 
13a2AR  PFTURN 
Pamaa SPEED= 255 
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In Ihren Händen liegt das Überleben 
des europäischen Kontinents und sei- 
ner gesamten Bevölkerung. Dieses Spiel 
simuliert einen Raketenangriff auf die 
Hauptstädte Europas. Schützen Sie den 
Erdteil vor seinem sicheren Untergang, 
indem Sie die Raketen noch während 
des Anfluges vernichten. Sie steuern 
das Fadenkreuz mit beiden Drehreg- 
lern (Paddle O0 und Paddle I) oder ei- 
nem Joystick. Mit einem Druck auf 
Button 0 wird ein Schuß abgefeuert. 

Die Anzahl der Raketen, die der Spieler 
zur Verfügung hat, ist unbegrenzt. Aber 
treffen will gelernt sein ... 


18 REM ORRRRRRRRRRBIBIBHKKHKK 

2a REM %* MISSILE ATTACK %* 

3a REM %* BY C. FREY E 

4a REM %* * 

sa REM * 6949 WEINHEIM %* 

ER O REM RRRRRRRRRRERKKKKK 

ra GOSUB 768 

sa HOME : VTAB 2: HTAR 13: INVERSE 

: PRINT "MISSILE ATTACK": NORMAL 


3a VTAB 4: HTAB 4: PRINT "COPYRI 

GHT >19832 BY CARSTEN FREY" 

180 VTAB 6: HTAB 4: PRINT "PLERS 

F CHONSE A LEVEL : " 

11a VTAB 8: INVERSE : HTAB 4: PRINT 
"1,.";: NORMAL : PRINT " NMYI 

DE PLAY" 

1?7@ VTAB 19: INVERSE : HTAB 4: PRINT 
"2,";: NORMAL : PRINT " NORM 


AL PLAY" 

120 YTAB 12: INVERSE : HTAB 4: PRINT 
"2,";: NORMAL : PRINT " EXPE 
RT PLAY" 


YTAB 14: INVYERSE : HTAB 4: PRINT 
"4.":: NORMAL : PRINT " END 


GAME" 

159 YTAB 16: HTAB 4: PRINT "CHOD 
BE 61..437:" 

168 IF PEEK © - 16384) < 128 THEN 
169 


17a GET UNS:UN = WAL CHNSI: IF 
UN < 1 OR UN > 4 THEN Pa 
isA IF UN = 4 THEN YTAB 18: HTAB 
4: PRINT "OKAY...GOOD BYE... 
..": END 

aA GOTD 2609 
20a REM xkkk TOUN Ik 
ein HPLOT %.Y TO X,Y- 8 TOX + 
4,Y-8T0% +4.YT0OX% +4. 
Y- 18 TI % + 12,Y - 18 T0X 

+ 12,1 - 4 TO X + 4.Y- 4 T0 
x + 14,Y - 4 TO X + 14.Y: HPLOT 
x + 18.Y T0 %+ 18,Y - 8 TO 
%“+127-8 
»2A HPLOT %.Y TO % + 28,YT0% + 
28,Y - 11 TO % + 24,7 - 11 TO 
% + ?4,Y TOD % + 24,Y - 15: HPLOT 


ee ee ee 8 0 0 98 9 9 9 0. © 
a 
» 
> 
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MISSILE ATTACK 


29a 


=Aa 


37a 


“+ 28.Y TO X + 29,Y - 22: HPLOT 


x +16,Y - BTO X + 1657 - 1 
SI-HPLOT 8+ 18,7 = 16 T0O-X + 
27,.Y - 16: HPLOT X + 18.,Y - 
15 TNn X + 22,Y - 15: RETURN 


REM x*%* AIR-RAID SHELTER *%* 


FOR 1 = 15 TO 3 STEP - 1: HPLOT 


%+1- 19,Y+1- 119 TO X + 
1,Y + 1 - 18: HPLOT X - 1,Y + 
1- 19 0X - IT +18.Y-+1- 
1A: NEXT I: FOR IT =%- 370 

%* + 2: HPLOT 1,Y - 7 TO 1:Y- 
13: NEXT 1: FOR 1 =X% - 1 T0 

% + 1: HPLOT 1,Y - 13 TO 1,Y 

- 1#: NEXT IT: RETURN 

HPLOT X - 5.,Y TO X - ?2,Y: HPLOT 
% + 5,Y TO 8% + 2,Y: HPLOT %, 
Y- 5 T0 %,Y - 2: HPLOT %.Y + 

s mn %.Y + 2: RETURN 

FÜR I = 1 TO 3: GOSUB 440: NEXT 


1 
HOME : HGR : HEOLOR= 1: SCALE= 
1: ROT= @: HENLOR= 1: HPLOT 
1.a TO 279.0 TO 279,159 TO 1 
‚159 TO 1,0 
FOR I = 155 TO 159: HPLOT 9, 
1 TO 279,1: NEXT I:X = 7:Y = 
153: GOSUB ?1A:X = 47: GOSUB 
219:% = 87: GOSUB 219:X = 16 
7: GOSUB ?19:% = 297: GOSUB 
219:% = 247: GOSUR ?1M 
X = 141:Y = 148: GOSUB 24aıX = 
141:Y = 1MA: GOSUB 250:RX = 
141:RY = 1MAM:Xl1) = 7:%(2) = 
47:%03) = 37:44) = 167:%(5) 
= PO7:XC6) = 247 
C = 771: POKE 1,59: POKE 9.29 
a: CALL C: POKE 1,58: POKE M 
‚aA: CALL C: PNKE 1.58: POKE 
A,159: CALL C: POKE 1,59: POKE 
A.200: CALL C: POKE 1,59: POKE 
A,159: CALL C: POKE 1,59: POKE 
A,1?9: CALL C: POKE 1,1AR: POKE 
A,159: CALL C 
FOR I = 1 TD 29: INVERSE : YTAB 
1: HTAB 1: PRINT " 


": NEXT IT: NORMAI 
YTAB ?1: PRINT "PARTS LONDON 
PONN NEW Y. WIEN BERN" 
YTAB 23: PRINT "HI-SCORE : 
";HS: YTAB 23: HTAB 24: PRINT 
"SCORE + "58€ 
REM *x*%* ATTACK *x%% 
HENLOR= 8:% = RX:Y = RY: GOSUR 
2sA 
HENLOR= 3:RX = INT ( PDL (A 
> + 193:RY = INT € PDL 1) 7 
2) + 1A: IF RY > 1AA THEN RY 
= RY - ?4 
x = RX:Y = RY: GOSUR 250: IF 
PEEK ( - 16287) > 127 THEN 
GOSUB 529 
FOR I = 1 T0 3 
MYCTD = MYCTS> + SYCTI:MXCI) = 
MXCTI> + SKCI) 
HLOLOR= 3: HPLOT MAXCII,MYCT) 


POKE A, INT CMXCII 7 2) + 50 
: POKE 1.3: CALL 771 

IF MYC1) > 15A THEN GOSUB S 
aa 


Fortsetzung S. 78 
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EN 


Getestet auf 
‚Atari 800 XL 


Sie müssen als mutiger Ritter in das 
Schloß des bösen Zauberers Necrau 
vordringen. 


Dieser Meister der schwarzen Magie 
'hat die wertvollen Schatztruhen Ihres 
Königs entwendet und läßt diese nun 
von Feuerspinnen bewachen. 


Mit einem Schwert müssen Sie sich 
gegen die Feuerspinnen verteidigen,.um 
an die Truhen heranzukommen. 


Der Hofzauberer Ihres Königs hat Ih- 
nen zusätzlich die Fähigkeit verliehen, 
den Raum auf einer Seite zu verlassen, 
um, falls dort kein Hindernis ist, auf 
der gegenüberliegenden Seite wieder 
aufzutauchen. Dadurch kann man die 
Feuerspinnen irreführen. 


Sie selbst müssen sich allerdings von 
den schlecht zu erkennenden Fallen 
vorsehen, die periodisch aufblinken. 


Ihre Bewegungsmöglichkeiten sind da- 
durch eingeschränkt, daß Sie sich nicht 
diagonal fortbewegen können. 


Folglich kann mit dem Schwert, das 
durch Drücken des Feuerknopfes be- 
nutzt wird, nicht diagonal zugestoßen 
werden. 


CHC 7 3: CH 6I=CHK 7) 
1865 SC=d:LE=3 


‚208,4,198 
5,283, 238,96 
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In jedem Raum befinden sich 4 Schatz- 
truhen, für die jeweils 10 Punkte verge- 
ben werden. Wird eine Feuerspinne ge- 
troffen, erhalten Sie ebenfalls 10 Punk- 
te. Ein Bonus von 100 Punkten wird 
Ihnen gutgeschrieben, wenn alle Schät- 
ze in einem Raum eingesammelt wur- 
den. 


118 IF PEEK(283)=CH1/256 THEN 1898 
124 FOR A=1 TO 44:READ B:ASCA)=CHRSCB>:NEXT A 
136 DATA 184,281,3,208,254,162,6,184, 149, 211,202, 208, 258, 230, 212, 238, 213, 198,212 


Sollten die Zeichen auf dem Schirm 
mal anders aussehen, so müssen Sie das 
Spiel unterbrechen, den Befehl POKE 
203,0 eingeben und erneut starten. Dies, 
kann vorkommen, wenn Sie vor dem 
Laden von MAGIC FIRE schon ein 
anderes Spiel im Speicher hatten. 


186 DIM A$( 44 ),B$C 5), FXC 59, FYC5),CHC 159: CH1=< PEEK« 186 3-8 )%256 : CH2=CH1-8%4256 
185 CHC 14 3=193: CHC 13)=195 CHE 11 9=197 :CHC 7 9=199: CH 18 )=CHC 113: CHCII=CHL 119: CHC5)= 


144 DATA 213,248,18,161,216,129,214,230,216, 288, 2,230, 217,230, 214,208, 234, 238, 21 


158 X=LJSR< ADR« AS), 57344 , CH1 , 1824 3: X=USRC ADR« Ai ), 57344, CH2, 1824 ):RESTORE 32888 
168 READ B: IF B=-1 THEN POKE 283,CH1/256:POKE 284,CH2/256:G0T0 188 
176 FOR A=8 TO ?7:READ C:POKE CH1+BXK8+A,C:POKE CH2+B$8+A,C:NEXT A:GOTO 168 
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184 READ B:IF B=-2 THEN 1968 x 
198 FOR A=8 TO 7:RERD C:POKE CH2+B#8+A,C:NEXT A:GOTND 188 
?aa B$=STRS$C SC): ASC 7-LEN(BS$ ) )=B$ 
Er lo: 238:FOR FA=1 TO 7:RERD B:?7 CHRS(B)Y: :NEXT A:? AS; :7 CHRSC 127): CHRSC 127 
228 7 CHRS“ 38 3; CHRS«C 36); LE; :RETURN 
236 DATA 155, 28,127,31,31,31,31 
399 REM *%%* Vorbereitung *%*% 
1BAA GRAPHICS 1:POKE 798,258:POKE 799,8:POKE 718,18:POKE 711,56:POKE 712, 146:POK 
F 752.1:?7 CHRSC 125) 
1885 As="GBBDBR" : B$=" AHA" 
1819 RESTORE 1828:FOR A=1536 TO 1697:RERD B:POKE A,B:NEXT A 
a 72,138, 72,152, 72,32,42,6,173,11,212,56, 233,89, 48, 28,169, 224, 141,9, 212, 
166 ‚205,202 
2 BE SERLE EIER ERINNERTE STE ERSTER TE URFIRR ES 1P 
.,) ’ 8, . 
ı1a4A DATA 173,244 ,2,197 203, 208,5, 165. 204, 76:680,6, 165,293, 141,244 ,2,169, 249,133, 
2A, 169,8, 133, 77,96 
1859 DL=PEEK( 5609 )+256XPEEK«( 561) 
1A6B FPOKE DL+23.139:POKE DL+29,139:POKE DL+25,194:POKE DIL+24, 134 
1a7A PÜKE 205,244:POKE 512,8:POKE 513,6:POKE 28, 259:POKE 54286,192 
1575 GOSUB 15988: GNSUB 16848 
1asa As=4:AF=4:Bl=BI+1:1IF BI=6 THEN BI=i 
1435 ON BI GOSUB 18988, 11098, 12068, 13008, 14000 
1Asa 7 "Punkte : "Ag; " Leben : ";LE 
1108 7? :? "MAGIC FIRE Eine JB’85 Produktion” 
1118 7% Geschrieben von Jens Berke" ; CHRS(C 28): CHRS$C 28 3; CHRSK 28); : FOR A=1 TO 
7:7 CHRSC31 9: :NEXT A 
1134 FOR A=1 TO 4 
1148 %=1NTE RNDC 93819 3: Y=INTCRNDEAFKIB +1: LOCATE %,Y,sZ: IF Z<>32 THEN 1148 
11594 Yi1=1 
1186A LOCATE %,Y+r1.Z:IF Z=32 THEN 1188 
1179 IF Yi=1 THEN Yi=-1:G0T0 1168 
GNTOD 1149 
ENLOR 283: PLOT %,Y: COLOR 233:PLOT Ks Y+Hrl:FRCAdeK:FrYCAdeY+HYL:NEXT A 
R%=10:RY=10:RA1=RK:RYi1=RY:CHE 15 3=193: COLOR 193:PLOT R%X,RY 
REM *##X*X Feuerknopfabfrage #4 
IF STRIG£5> THEN 3898 
ST=STICK(83:SDUND 1.8,0,5:C0OLOR CHLST)I+1:PLOT RX.RY:FOR A=1 TO 59:NEXT A 
K=RK+HL.STLSI-CST>8 AND STL12) 
Y=RY+l5ST=13)-(ST=14) 
IF 8 THEN %=19 
IF %#>13 THEN %=A 
IF <a THEN Y=19 
IF 7719 THEN Y=B 
LOCATE %,Y.2:IF 2<>233 THEN SOUND 1.8,8,8:G0TN 2098 
EOLOR 234:PLOT %.Y:FOR A=A TO 104 STEP 19:SOUND 1,A,19,5: NEXT. A: SOUND 1,8,8 


A FOR A=si1 TO 4:IF FACAd=% AND FYcA)=Y THEN 2975 
A NEXT A 
= PÜP :FOR B=Äi TO AF-1:FACBI=FRC B+1 I: FCBI=FYCB+L I: NEXT B:AF=SAF-1: FN=8 
A FOR A=1 TOD 39:NEXT A:SC=SC+19:GOSUB 209:COLOR 32:PLOT %,Y 
ENLOR CH 159:PLOT R%.RY 
REM £%X% Stickabfrage ##% 
ST=STICKC9>:IF 5T=15 THEN 4aaa 
RA1=SRKI+LSTLSI-LSTZ12 AND ST>8) 
RYi=RYirlST=139-(ST=14) 
38 IF RX1{A THEN R#1=19 
A IF R%X1>19 THEN R%1=9 
IF RYi<a THEN RYi=19 
IF RY1>19 THEN R'Yi=ß 
LOCATE RX1:-RY1.Z:1IF 22>32 THEN 3599 
COLOR 32:PLOT R%,RY: SOUND 9,9,.19,5:S0UND 9.9,9,0 
RA=PR#1:RY=RY1:COLOR CHCSTY:PLOT R%,RY:CHC1SI=CHLSTY:GOTD 40009 
a" IF 27=233 AND STRIG(8> THEN 5198 
IF 2Z=243 THEN Sana 
IF Z=199 THEN 52098 
RA1=R%:RY1=RY 
REM *+* Bewesunga der Feinde %*% 
IF AF=B THEN 2800 
FN=FN+1: IF FN>AF THEN FN=1 
a FR=SGNERR-FACFN > 3: FY=SGNCRY-FYOFN >) 
A LOCATE FRCFNI+FR:FYCFNI+FY,Z:IF Z>192 AND 2/2801 THEN 4978 
IF 22>32 THEN 2208 
EALOR 32:PLOT FALFND:FYCEFND:FACFNI=SFACFND+HFR:FYCFNI=SFYCFNI+FY:COLOR 233: PLO 


x . 
“ 
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T FHCFNI:FYCFND 

4a GNTO Zaaa 

4ara Hl=FRcFNI+FR: YI=SFYCoFNI+FY 

aasa COLOR Z11:PLOT %1.Y1:COLOR 32:PLOT FACFN>.FYCFN)» 

en A=28 TD 194 STEP if:FOR B=3 TO 9 STEP -9.8:50UND 8,A+B.18,5:NEXT B:NEXT 

=DUND 9,0:.8,0 

4432 FOR A=1 TO AF:IF FAAd+FR=K1I AND FYCAd+FY=Yi THEN 4896 

44934 NEXT A 

4496 FOR B=sfi TO AF-1:FACBI=SFHCBHL >: FYCBISFYCB+HL I: NEXT B:AF=ÄF-1:FN=D 

41am COLOR 32:PLOT %1,Y1 

4119 LE=SLE-1:G0OSUB 2a9: IF LE=G THEN 7988 

412A COLOR CHE 1ISP:PLOT R&.RY:GOTO Zaag 

4333 REM #%# Schatz eingesammelt XXX 

Ssaaa COLOR 282:PLOT RA1.RYi 

said FOR A=?2aoA TO 2a STEP -18:S0UND 9,A, 19,5:S0UND 9.9.9,9:SOUND 9,A,19,5:NEXT A 
:SOIUND A.A,0,4 

5924 SC=SC+H19:GOSUB 299:COLOR 32:PLOT RX1,RY1 

sa20 AS=AS-1: IF AS=A THEN 6AAA 

saaa RAi=RK:RYiI=RY:GOTO 30RA 

siaa COLOR Z11:PLOT RS1,RY1:COLOR 32:PLOT RX,RY 

s11A FOR A=2A TO 188 STEP 18:FOR B=3 TO 8 STEP -9.8:SOUND 9, A+B,19,5:NEXT B:NEXT 
A: SOUND 9,40,9,8 

si2A LE=LE-1:G0OSUB ?aA 

s13A FOR A=1 TO 4:IF FACA)=RK1 AND FYCA’=RYI THEN 5145 

Ssi4a NEXT A 

5145 FOR B=eAi TO AF-1:FALBISFHLB+l I: FYCBI=SFYCB+1):NEXT B:AF=ÄF-1:FN=G 

s15a COLOR 32:PLOT RX1,RY1:IF LE=@ THEN 7999 

s16A COLOR CHEISI:RKSRKI:RYSRYI:PLOT RX,RY:GOTO 20998 

5?8a COLOR 119:PLOT R#1,RY1:COLOR 32:PLOT R#.RY 

s21A FOR Asa TO 255 STEP 5:SQUND 9,R,19,5:NEXT A:SOUND 98,2,0,8 

s22A LE=LE-1:GOSUB 299 

5738 FOR A=1 TO 199:NEXT A:COLOR 32:PLOT RX1,RYi:IF LE=@ THEN 7908 

s24A RA=RX1:RY=RYL:COLOR CH 15>:PLOT RA:RY:GOTO 2998 

53393 REM #X# Alle Schaetze Seholt #%*% 

sang SC=Sc+1Bg: GOSUB Zar 

Sala FOR A=28A TO 8 STEP -1:S0UND 9,A,19,5:S0UND 98,9,8,8:NEXT A 

&428 7 CHRSX 1259; :GOTO 1938 

#333 REM #*# Alle Leben verloren X#X 

aaa 7 u CHRS$( 29); "Druscke START fuer ein neues SPpiel...":? CHRS(C156)5CH 

RS 156 

rata Ir FEEK( 53279 %X>6 THEN 7a1e 

7828 RUN 

1ABaA 
1aR1A 
12929 
19939 
190944 
19950 
1Aa6A 
129724 
120938 
1m094 
18:80 
18118 
18128 
19139 
19148 
123158 
1a1sa 
14178 
ı1a18A 
14199 
11aaa 
11a1a 
119728 


#5: CHRS$C 1253: 7 #6" 
#65; " an" 
#5; " Er u 
#5" OAARHAAAIE" 
#5; "9999949 SAATOR" ; 
#5," aagaar"i 
#5" ag" 
#6; " an" 
6; " "n 
#5:" SRARAORAG" ; CHRE“ 193); "ORRAA" 
#55" 4949949990 Ada" 
#6," ag" 
#5; " ag" 
j Erinieirieirinieinin ie hl 
gıaggaggaagIggar" ; 
ga" 
aa" 
19 m" 
ag" 


#6: CHRSC 1253:7 46:7 #6;" oadann [m] pp In] p BG 
#6;" Aaagaaar m AdIagan "5 

##;" 90 M| 

#6" AD 

#6" 90 BAROE 

#55" dr 49999r 

#5:7 Hr" in ; CHR&C 133 9;" m" 
#5:7 He on ARAAN BER 

##" 90 Aadaır | ; 

#65" gd0 

#6:" 40 

#6: " ARaaan aaa 


BET TERN ToRR ER oar ax ar Bar or Ba an Bar ar Ban Bar Een en EN zn 


& 
® 
€ 
° 
® 
® 
® 
® 
x 
® 
® 
= 
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® 
® 
® 
® 
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® 
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» 


IE 
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a ne nn 


BENDER ER ER ER ac oc Bar Terrors ac a BEN BEN» BEN Ber BEN Bar er Bar BEN Ber an Bar ar Bar Ber Ban Kar Ber Eur 


III 


7 #6" 


#6" 
#£ " 
B6i" 
#6; " 


#5; "49 


El 


je 3 DEREN EN ZEN N N EN ZEN Be N N N a N ze ze Ze ZEN 


. "ag 


#5; "40 
#5; "40 
#5; "40 
#6; "40 
#5; "40 
? #A; "AO 
ETURN 


#5; "dr 
#4: 


RETURN 
? CHRSCI25)5" Ce) 11. Februär 1985 by Jenz Berke" 
Zum Start Felerknöpff drüscken..." 

IF STRIGZA> THEN 16928 


a 


RETURN 


#6 AAO 


a4aggn m’ angdaır 
4n 


40 
an 40 


#6 ; CHR&C 1259; "oDDR 


:? 46:7 #6: "OOAATAAT 
;"4ggdgddr 4gggggar" ; 
:? 465" : 


ol 
2 
40 mm 
40 


49991Ir 


CHR 1253; " 


E 40 
ORAAAAAAAIAIE 


19994949 


1999990 

40 
40 
40 
ar 


40 
AAATAHA" 
99499441" ; 
#6:7 Hr he" m 
#6:7 #6:7 #6:7 #6; "ODADARAOR SAAAAGAG" ; 
ee 


agangaar"; 


[= R] 
an" . 
an" fi 
42"; 
49"; 
an"; 
an"; 
dr"; 


#6:7 #6:7 #6 "ORT 
angggar 


#65: CHRSL125):7 6:7 #6: He 

#6; SHASAAPAASLANSAOHAA" ; 

#5 ; "4NIDIDINIDIAIFIQIDAIF" ; 

#5; "IHIFIGIAAFIKOAININ" 

#5; "90 AAIAIGIATAIAIGAN" ; 
Ar drarggIgIrdrggar" ; 

#5" SAATALHAAAAAANI" 

IAIFIGIOIIQIQIT " 

IN IHITAIIIAE" 

adr IAIAIArAAr" 

429 IDIQIIAIDAO" 

dr drar drggge" 


"DATA 33,09,32,34, 50, 254,2532,194,8 
DATA 34,16,165,16,124,198.254,124,56 
DATA 35, 32,59, 126, 254,152, 136,8, 
DATA 36,56,124,254,198,124,16,16,16 


RE" ; 


;CHRSC 1923935" SAADARAA" ; 


’ 
+ 
’ 


;CHRSE 193); " ra" 


’ 


CHR 193) 
RADAR"; 
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37,9,56.12,15,39,126,.12.14 
38.4,12,39,23,247.,23,34,12 
39,8,112,493, 126,120, 249,43,28 
44,0,48,129,232,239, 232,129,.43 
41,26 .29,217,62, 124.155, 49,36 
42,4,39,111,235, 197,197,78,4 
43:63,67,133, 253,133, 191,134, 252 
45,0,4,32,9,2,90.16,8 

46,608, 126, 255.239. 259,255. 126,60 
47,1.3,7,15,21,63,127,2553 

49, 253, 255, 2599, 255, 255, 259, 255, 255 
50,255. 254, 232.248, 240,224,192,128 
51,146.94.40.198.40.94,146,0 

= 

33:9,8,1736,1932,254,126,58,32 
35,8,194, 252, 254, 59,34,32,90 
27,8.14,12,126,38,195,12.56 
39,9,28,48,2409,129.126,43,112 
41.18.202,.44,121.159.32:33,72 
a a 


Gastie of Eonfusion 


ATARI 


Schatzsuche mit Hindernissen 


In Castie of Confusion haben Sie als 
Schatzsucher die Aufgabe, minde- 
stens 15 Schätze in den Räumen eines 
Schlosses zu suchen, einzusammeln 
und in.den letzten Raum des Schlosses 


zu transportieren. Dabei ist zu beach- 
ten, daß die Suche und der Transport 
der Schätze in relativ kurzer Zeit ge- 
schieht, damit eine gute Bewertung er- 
folgen kann. 


Bevor Sie jedoch als erfolgreicher 
Schatzsucher gefeiert werden können, 
sind einige Probleme bei der Schatzsu- 
che zu bewältigen. Im Schloß sind 
Monster, die Sie bei der Suche stören. 
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Diese müssen durch Schwerthiebe 
vernichtet werden, wenn sie mit Ihnen 
auf gleicher Ebene stehen. Ist ein 
Monster beseitigt und Sie können den 
Schatz aufnehmen, sollten Sie den 
Raum so schnell wie möglich verlas- 
sen, denn sonst erscheint ein Spezial- 
monster und verschleppt Sie. Dieses 
Spezialmonster kann von Ihnen nicht 
getötet, sondern nur vorübergehend 


gelähmt werden. Da Sie nur drei Leben 
in diesem Spiel haben, ist allergrößte 
Vorsicht geboten. 


Der rechte Ausgang eines Raumes 
bringt Sie in den nächsthöheren, der 
linke Ausgang in den nächstniedrige- 
ren Raum. 


Gesteuert wird das Spiel mit dem Joy- 


stick. Mit)s(wird das Spiel unterbro- 
chen und mit)r(weitergeführt. Die Ta- 
ste OPTION führt zum Spielabbruch. 


Die Spielgeschwindigkeit kann von. 


Ihnen selbst bestimmt werden. Im obe- 
ren Bereich des Bildschirmes werden 
die Anzahl der Leben, die Zeit, der 
Raum und die Anzahl der Schätze an- 
gezeigt. 


REM % 


REM * WON SVEN KOENIG 
REM % UND ANDRE’ JAKOB 


RFHM 

REM 

* REM 

18 REM INITIALISIEREN 
2a GOSLUB 8068 


DVNNARWONPG 


38 DIM CHAR$(C 23 3. SCH$“ 1 9, MONSK 1), KSC 18) 
18, RANGSC 183, GES 7 3, GEZSK 7) 


31 DIM C$( 48) 


REM KAHKKEKKKKHKKHKKKKEKKHKHKK 
CASTLE OF CONFUSION  %* 
REM * FUER DEN ATARI 388 # 


# 


E3 
REM KEKKKKKKKEKTEKEKKKHEHKEHEHK 


:F$6 13,867 3, NAS$C 7 3, NAMS< 7 >, RASC 18), RAN“ 


39 NE=" ARRRARR : NAS= "NY NAMS="ZZZZZZZ" : RAS=" "RAN :RANGS="-—— 


_—":P1=136:P2=190: P3=290 
4A RESTORE 


59 CHARS="KUARTHSR’RE IE > JILIT=_7/: 487, 0 0" 
AB CHSET=C PEEK( 196 3-8 3%256 : CHORG=57344 


63 RESTORE 7956: Z=8 


7a FOR I=8 TO S11:POKE CHSET+1.PEEK«CHORG+1):SETCOLOR 8,8, RHDE B>K1E: Z=Z+1 
71 IF Z=17 THEN Z=8:READ 58,51,52,33,T:FOR W=1 TO T/2:S0UND 8,58, 18, 18:S0UND 1,8 


1.189,18: SOUND 2,52.18,18 


?2 IF 2=17 THEN Z=#: SOUND 3,53,18,18:NEXT W: 


9,4.,0:5OLND 3,9,4,8 
75 NEXT 1:SETCOLOR 8,8,19 


73 FÜR R=8 TO 3:SOUND R,8,8,0:NEXT R 


34 RESTORE 7GB: FOR I=1 TO 


23 


9 CHPÜSSCHSET+ ASCECHARSC 1535-32 548 


185 FOR J=8 TO 7? 

183 SETCOLOR 1,8, RNDCB)*1E 
11A SOUND 1,J%25+1%2:4.8 
128 RERD A:POKE CHPOS+J,A 


138 NEXT J:NEXT I:FOR R=8 TO 3:SOUND R,8,8,8:NEXT R 


148 GESCHU=1: GOSUB 3588 


SOUND 8,8, 


4,6: SOUND 1,8, 9,4:50UND 2; 


2u8 GRAPHICS 2+16:SETCOLOR 4,8,.8:SETCOLOR 2.1,18:SETCOLOR 3,18,7 


2a5 GOSUB 1768 
218 FÜKE 752,1 
228 FÜKE 756. CHSET/2565 
222 GOTO 19688 


225 FÜR I=8 TO 3:50UND 1,8,0,8:NEXT I 


234 SCHATZ=A:ROOM=1:M=4 
235 POKE 139,@:POKE 28,8 


244 FOR I=8 TO 3:SOUND 1.8,8,8:NEXT 1:P=8:RESTORE ?596+RO0M#29-28 : TIME=-1:ZEIT=4 


241 
Bd-R.16,R 


FOR I=6 TO 19:FOR R=8 TO 11:POSITION I,R:? #65" 3"; :SOUND 8, 1,18, 12:S0UND 1,2 


242 NEXT R:NEXT 1:S50UND 9,9,8,9:S0UND 1,8,9,8:SHONT=:MOYE=9:IF M=8 THEH 18258 
245 AR=32: ART=32: Y=4:G0SUB 589:G0SUB 3598: POSITION X,Y:? #6; "U" :POSITION S%,8Y:?7 


EOOH %* <":POKE 77,8:TRAP 308 
247 POSITION 9,8:7 #6;RO0M;" ":POSITION 2,0:7 #6: M: POSITION 17,0:7 #6: PEEK« 199; " 


#6: SCH$ 
246 FOSITION 8,8:7 #6; " 
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248 POSITION 12,0:7 #63 "%" ;SCHATZ:POSITION 9,1:7 #6; "jJ":POKE 53279,8 
259 PÜKE 77.8:REM HAUPTSCHLEIFE 
251 IF PEEK(764)=62 THEN GOSUB 1908 
255 FOSITION 17,8:7 #6; PEEK(19>:IF PEEK«19>>398 THEN 19008 
268, ST=STICKE 8): KR=B: YR=B:GOSUB 4aan 
ers IF STRIGCB)=A THEN GOSUB 1aad 
27a Yev+l:IF Y=YV2 THEN Y=B:G0SUB 2098 
275 IF #=M% AND Y=M'Y AND Y<93 THEN 3868 
2BA KR=AR-CST>8 AND ST<129:KR=XR+CST>4 AND STiB 3: YR=YR-(ST=19°OR ST=14 OR ST=655: 
YR=YR+(ST=3 OR ST=5 OR $ST=13) 
3 MÖVE=MOVE+1:GOSUB 9088: IF PEEK(532795=3 THEN 19098 
IF #R=5 AND YR=5 THEN 258 
SOUND 9,288,2,10: IF X+XR<@ THEN ROOM=ROOM-1:POSITION X, Y:7 #5; "U" :GOTO 248 
' IF %+#R>19 THEN ROOM=ROOM+1:POSITION %,Y:7 #55 "W":GOTO 248 
LOCATE K+AR,VHYR,Z:IF Z=32 THEN 498 
IF Z=166 OR 2<33 THEN 380% 
IF 22224 OR 2>169 THEN GOSUB 1588 
GOSUB dam 
POSITION K,Y:7 #65" "sc KER+HR Ve +YR:POSITION X, Y:ıT #6; "K"; 
SOUND 8.8.8,9: FOR WART=1 TO 68-GESCHWK3:NEXT HART:GOTO 258 
REM BILDSCHIRM 
A DON ROOM GOSUB 3238, 568.599, 620,658, 688, 710,740, 770.800, 830, 860, 839 , 329 ‚950,50 


RETURM 

POSITION 8,2:7 #6;"j 
ee J 3 
Saal 7 He" 

er 
=sA RETURN 
Sei POSITION 8,2:7 #6; "ij IEITIIIIIITIIT IH IT II HIHI II 
SEIEN 3 3: 
san FH" III TIEREN IF 3 
J er 
5sA RETURN 
538 POSITION 8,2:7 #85" Ji dä di 
Er IIIIIT J J F 

Ban 7 Ha" ii j J dd 
RR en roh Wehe 
Alf RETURN 
s2A POSITION 0,2:7 #65" di A F Aa Dr ME N ME tr 
a SE NE IIIIEL IA j j 
5 et dd dd id SIÄEZFFIIH- FH FE Tiss Js) 


J J 
540 RETURN 
558 FOSITION 8,2:7 #5 "333 id FR ARE 

EB an I EB Da SE NE I En De A 
REA THE" a ae a Jul 
Jä ni 
ErA RETURN y 
s6R8 POSITION 8,2:7 #6; " a ER a oe Jd A Jd 

+73 Baar jet; 

Ban 7 Ha" J ARTE Iran a bee JJ N En Dr 3 N NEE Basen 11 0 Bao JJJJdd 

FI IS I = 
rar RETURN 
718 POSITION 4,2:7 #8; "J3yyi III EN I, 

J J Met 4707 
BT RENT SI AI II AH J J J IITIIF ESF II FH 
eh >. 

73A RETURN 
r4B POSITION 8,2:7 #65" J J j j j hr N SIE NIE III 
VE Te ut J J nei J ; 
rsa rt #6 "dd Eier t2, Jj J nur 
758 RETURN i 
?7A POSITION 8,2:7 #65" DET EREER TEST BEREn 3 

IL ARTE 

J j 3 Val WEIT EAIT 

J Jd „ 
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738 RETURN ng ER 
aaa FOSITION 8.2:7 #65" J IEBEREREREFEEF EEE ER EREEREREREERE EEE EEE RERERFE 
IRRE) IRRE 3" 


asia 7 a6" IRRRR ; FE FF ESER ER BEFFRF IER RE BER FREE 

IRRE, i r 
A2a RETURN | . 
83a POSITION 9,2:7 #6"; IEFFEFRRFF E ; is 

i IFREREF j 30; 3 
A407 #6" di IEFFFEFFFRR IRFR i ; IERF 3 

RER r | 

BEREABE TURN nn Bi a RE EET ER  ER ER EE 
BEA POSITION B,2:7 #65" is i 33 70 TODE DI 
IL II ZI HIER FE 
ara 7 #65" iE j ed IEFFREFFREFFFFFFF 
[ERERFE . 
33a RETURN SF 
838 POSITION 8,2:7 #65" ss FE JEAN LINEEHTAS 
[ERFFR IEFERES ER ER FRE FIT 
Sam? ITEM IF IEFFREFFERBEREFF 

BISIIIIRT THE 
318 RETURN ER ES, r 
928 POSITION 9,2:7 #6; "ssisssidssssdd 3 III FF 

13335: 1 SAT 134% 5 
Eu ae IE IP FF BE BEE FFFRFRFERRFR IF TEE 


SIIIIIIITI SHIT “ 
344 RETUFRH , - Be E : 
35A POSITION B.2:7 #6; "Js J J J DIR In OR DR J J EIS J J 


JE ae a ee ee a 
BT" ji KR RR na a Su Dr ER Far JEJSSI ne Me 
III ch 
978 RETURN 


1Aag REM SCHUSS 

1995 SOUND 3:8,9,0 
181@ IF Y>8 THEN 1128 
in2a IF MA>X THEM POSITION %,Y:7 #65"X";:FOR I=s1 TO 88:NEXT I:POSITION %Y:7 #6; 
"K":G0T0 1959 

1950 POSITION %,Y:7 #65": FOR I=1 TO 88:NEXT I:POSITION X, Y:? #ö;"K" 

153 IF YoMY OR ABSCH-MX5>2 THEN FOR R=3 TO 9 STEP 3:SOUND 9,12,8.-R:FOR D=1 TO 
S-R/2:NEXT D:NEXT R 

1m68 IF YooMY_ OR ABSCK-MX)>2 THEN FOR U=8 TO -12 STEP -2:S0UND 9,.ABSCU),8, 10: FOR 
R=3 10 a STEP -2 

get IF YeoMY_ OR ABSCH-MA>>2 THEN SOUND 9,12,8,R:FOR D=1 TO S-R2:NEXT D:NEXT R 
1109 IF Y=hY AND ABSCK-MX «3 THEN SHOOT=SHOOT+1:IF SHOOT=4 THEN SHONT=B:G0SUB 12 
AaR : RETURN 

1116 IF yay AND ABSCX-MX 3 THEN SETCOLOR 9, COL.6+SHOOT$2:GOTO 1112 

) 50 

1112 FOR I=1 TO 2:SOUND M,12,19.10:FOR R=1 TO S:NEXT R:SOUND 8,8,8,8:FOR R=1 TO 
S:NEXT R:NEXT I 

1115 IF MOVE<12G THEN RETURN 

1126 IF IR» THEN POSITION %,Y:7 #65 "X":FOR I=1 TO 88:NEXT I:POSITION %,Y:7 #6," 
K":G0TO 1139 

1134 POSITION %,Y:7 #6: "Q":FOR I=1 TO 8A:NEXT I:POSITION K,Y:7 Has 

1139 FOR R=3 TO 9 STEP 3:50UND @,.12.3,R:FOR D=1 TO 5-R/2:NEXT D:NEXTR 

1148 FOR li=8 TO -12 STEP -2:SOUND 8,ABSCU),8,18:FOR R=8 TO 8 STEP ->2 

1141 SOUND 9,12,8,R:FÜR D=1 TO S-R/2:NEXT D:NEXT R 

1209 IF Y=ly AND ABSCK-UX CS THEN MOVE=1AA 

1202 IF Y=WY AND ABSCK-WX)<3 THEN FOR U=18 TOD 16 STEP 2:FOR l=258 TD 8 STEP -50: 
SOUND 9. ABSCABSCU-WI-L), 19.717 

1265 IF Y=blyY AND ABSCK-WX 33 THEN NEXT W:NEXT U:POSITION UR,WY:T Hesec® 

121 FOR I=1 T0 S@:NEXT I:RETURN 

15A@ REM SCHATZ GEFUNDEN 

1539 POSITION SX,81:7 #64" ";:FOR I=8 TO 288 STEP 19:SOUND @,1,18,19:30UND 1.200 
-T, 1 - 

1544 NEXT 1:SCHATZ=SCHATZ+1:Y=8: SOUND 9,9,8,8:SOUND 1,9,8,8:POSITION 13,0:7 #6:3 
CHATZ 

1558 IF (k=18 OR %=19) AND ROoM=15 THEN 5099 
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15668 
17a 
1714 
1998 
191 
1315 
1928 
1338 
add 
za1 
2A28 
23a 
ag 


RETURN 

REM BREAK-TASTE 

FÜKE 16.64: POKE 5377464: RETURN 

REM PAUSE 

FOR R=A TO 3:50UND R.8.9,8:NEAT R 

A=PEEK( 19) 

PÜKE 77,6: IF PEEK« 764 5% >48 THEN 1928 

PÜKE 13,R: RETURN 

REM MONSTER BEWEGUNG 

POSITION MX.MY:? #6: MONS: : MAR=B: MYR=B 

MAR=SMAR+H MAD: MXR=SMAÄR-L KM MYREMYR+H NV DMY DE MYRSMYR-C SM) 
LOGCATE MA+MARSMYHMTR,Z 

IF ART=186 THEN POSITION MA.MY:? #65" 3" 5: MA=SMAHMAR : MY=MY+MYR:POSITION MS.MY 


1:7 46 MONS 


2458 


IF ART»169 THEN POSITION MR.MY:T- #6: SCHS$ 5 : MA=MA+MAR : MY=MY+MYR: POSITION M%,M 


Y:? #6: MONS$; 


IF ART=32 THEN POSITION MA.MY:T 45" "5: MASMAHMAR: MY=MYHMIR: POSITION MA, MY: 


: MOHNS ; 


ART=Z 
RETUFRH 


A REM KAPUTT 


ROOM=INTC RNDK B5#14+1 9: SOUND 3:8,9,8 
POSITION #,Y:7 #65 "5" 
FOR R=1 TO 15:FOR W=2aa TO 58 STEP -25:S0UND 8, FX2+W, 18, WU/58+15-R: NEXT W:NE 


: SOUND 856,4,8:RESTORE 7968 


FÜR R=& TO 3:READ TON,T:FÜR W=1 TO T:SOUND 8, TON, 14, 18:NEAT W:NEAT R 


A SOUND 2.,8,9,8 


M=M-1:POSITION 2,8:7 
RESTÜRE 7954 
FOR R=1 TO 31:READb 59.51.82.53,.T:FOR W=1 TO T/2:SOUND 9,598,18,18:SOUND 1,51 


? #6;M: IF M>8 THEN 248 


‚19.19: SOUND 2,82,19.1@ 


“16m 


SOUND 3,53,18, 18 NEXT W:NEXT R:SOUND 9,9.9.0:50UND 1,8.,8,8:SQOUND 2.8,8,6:50 


UND 3.8.8.0 


=25A 
35AaA 
3514 
352 
3530 
3544 
3550 
356 
„s70 
3530 
3535 
611212) 
are 
arza 
ar3a0 
and 
a5 
3565 
a7 
3530 
ara 
3695 
' er4als) 
a71a 
3720 
3738 
3740 
Se 
376 
a77a 
4aad 


4a1n 
| 4ara 
| 430 
Sa 
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Ks="NOT ABLE TO PLAY":GOTO 1aaA0ı 
REM MONSTER-SCHATZ-UNTERROUTTINE. 
COL=RNDC 9 3%14+1:SETCOLOR 8,C0L,6:SETCOLOR 1, INTERNDE 8581441 9,2 


V=B:Y2=INTCRHD«C B 5k6+2 > 


MOHS=INTE RND« 9 388+1 3: SCHA= INT“ RNDI 8 >K3+1 > 

MONS=1 THEN MOHS="1" 

MONS=2 THEN MONS="#" 

MÜNS=3 THEN MONS="$" 

MONS=4 THEN MÜNS="%" 

MONS=S5 THEN MÜNg="’ " 

MONS=6 THEN MONS="R" 

MOHS=?7 THEN MONS=" 3" 

MONS=3 THEN MONS="\" 

SCHA=1 THEN SCH&="L" 

SCHA=2 THEN SCHS="T" 

SCHA=3 THEN SCH$="=7 

SCHA=4 THEN SCHS="_" 

SCHA=5 THEN SCHS="“" 

SCHA=6 THEN SCHS="Z" 

SCHA=? THEN SCHS=";" 

SCHA=3 THEN SCHE=TE 

SCHL=6 THEN RETURH 

= 1NTCRNDE 9 381 7+1 3: Y=INTERNDCB IKI+1 I: LOCATE #2: IF Z<>32 THEN 3700 
M%=INTERNDE SELL F+1 3: MY=INTERNDE 9 3K3+1 3: LOCATE MX.MY,Z:IF 2X>32 THEN 3718 
IF ABSCK-MX 325 THEN 3718 

5%= INT RUNDE IKLF+L 3: SY=INTERHNDC 9 3K9+1 3): LOCATE S%,8Y,Z: IF 2Z£>32 THEN 3739 
IF ABSCH-S% xX7 THEN 3738 

= INT RNDEB IK17+1 9: WY=INTORNDE A 3%9+1 3: LOCATE WX:WY,Z:IF Z<>32 THEN 3758 
IF ABSCH-WX CS THEN 3758 

RETURN 

REM HINTERGRUND-MELODIE 

TIME=TIME+1:IF TIME<>ZEIT THEN RETURN 

READ TON.ZEIT:IF TON=-1 THEN RESTORE 7590+RD0M20-29:G0T0 4820 

SOUND 3, TON, 18,6: TIME=A : RETURN 

REM AUSWERTUNG 
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6% HoMEcoMmPUTER 


said IF SCHATZ<15 THEN M=M-1:RONM=1:POP :GOTO 
sa28 POP 
=834 P=FEEK« 19 3-M&3-£ 17-SCHATZ >*3-GESCHU 
Sata P£33 THEN #$="INYISIBLE-2" ; 
Sa F£33 AND M=4 THEN X$="GENIOUS-1" 
SarE P>33. THEN #$="SMART ALEC-3" 
Sara P>42 THEN K$="ARTFUL-4" 
Sasa P>46 THEN #$="GHOSTHOUNTER-5" 
“aaa F>58 THEN #$="SHARP-SIGHT-6" 
Sion F>54 THEN #$="ADVENTURER-7" 
“11 P>58 THEN K$="PUGNACITOUS-3" 
s128 P>62 THEN #$="CLEVER-9" 
5134 F>66 THEN #$="TALENTED-18" 
S14a F>7& THEN #$="RESFECTABLE-11" 
5154 F>74 THEN #&="DECENT-12" 
Sid P>?3 THEN #$="HANDSOME-13" 
>178 P}>32 THEN #$="SUFFICIENT-14" 
Ssıaa FP>26 THEN K$="AVERAGE-15" 
“19 P>34 THEN #$="MEDIUM-16" 
F>24 THEN #$="MIDDLING-17" 
F>33 THEN #$="COMMON-13" 
F}162 THEN #$="MEAN-19" 
F>iß6 THEN #$="NORDINARY-28" 
P>118 THEN K$="CARELESS-21" 
F>i14 THEN #5="LUINSATISFACTORY-22" 
P>113 THEN K$="NOT GIFTED-23" 
P>122 THEN K$="EAD-24" 
F>iZe& THEN #$="INCOMPETENT-25" 
F>138 THEN #$="THOUGHTLESS-28" 
P>134 THEN A$="CLUMSY-27" 
P}123 THEN #$="CÖONFUSED-23" 
P>i42 THEN A$="GA GA-29" 
P>156 THEN #$="MONSTERFOOD-38" 
F>i6B THEN #$="FOoL-o@" 
GOTD 1a 
REM ZEICHENSATZ-DATAS 
DATA 24.24 ,36.,90, 153, 36, 36,102 
DATA 153, 98,36, 24,24, 36,36, 182 
' DATA 176,176, 208,55,48, 72,126, 149 
DATA 13,13,19.,236,12,18:17,49 
DATA 182,255,189, 219, 126,68,665,36 
DATA 38.531,99, 192,60, 28,36,194 
DATA 2,38,63,186,127.127.9,85 
DATA 29,62.197,62.99,62,.29,119 
* DATA 60,66, 153, 153, 126,66,66,36 
DATA 17,82,54,38,51,39,34,66 
DATA 162. 145,82.62,171,126.37. 201 
DATA 8,0.66.165,68,44,126,153 
DATA 124,146, 146,158, 138, 130: 124,8 
DATA 66.219,68, 99,68. 36.219.66 
DATA 126,219, 255,213, 149,149, 148,24 
DATA 233, 238,8,119,119,9, 233,238 
DATA 8,68.56.129,129.66,60,24 
DATA 68.126,68, 90,129,129,66,68 
DATA 56,68,68,48,16,56, 16,16 
DATA 42,42,42,62,42,62,62,0 
DATA 8,1465, 1986.214. 254.238, 186,254 
DATA 8.72,46,8,99,255,126,665 
DATA 219, 219,219, 73,73,62,8,28 
DATA 3,28,3.28,62.,80.,62,28 
DATA 6,6,6:6:6:6,6:6 
DATA 192,227 .63,28,192.227,63.28 
DATA 192,252,63,3,192,252,63,3 
DATA 32.2,136,24,8,12:127.252 
BATA 16,129,16.64.2,48, 254,63 
REM ENDMELNDIE-DATAS 


DATA 182,38,91,18.81.209,91.20.76,28,81.28.91.19,188,19, 192,20 
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21a DATA 68.29,659, 20, 76,20.81,28,91,29,81,18,182.19.68:48,91,28,81.28,91.18,1883 
.19.136,28,76,28,81:28,91,18 
r224 DATA 183.18, 136, 29,68, 28,76:29,81,25,-3.9,81,19, 72,15, 3,8, 72,18,63,9.-2: 8, 
= 4a 

r23A GATA sa, 38. 53, 5,-3, A, 53; 18, 5, 18, EB 2a, 54,30, 58: 5,3 A, E, 18; 74-7 18, 21:28,31 
‚34 .,81,5,76:9,68,18,64,18 
r248 DATA 765,18,91,18,162,26,81,19,91,16, 182.48 
2Sa DATA 58, 36,53,5:.-3,8.53: 19,68, 19.68, 29,69,20,68,5,-3:9,68, 18, 76:19,31,28,91 
‚34,#21:5, 76:5:63, 18.,68,108 ; 
r26#6A DATA 76.18, 91,18,192,28,51,18,91,18,192.44.,8,20,-1.8 
7433 REM HINTERGEUNDMELODIE-DATRAS 
sad DATA 91,3; 81, 9 Rare 6:609,3,72:9,91,6; 72,9,188.,3,8,1.198,21 
rsıia DATA 9:3,91:3:.81:6:60:.3.72,12:.91,3,81,6:68,3,72,9, ‚68, 6,53: 9,45, 3,47,3,93-9: 
A, 1:.53,12,8,.12, =t; ‚Bd 
RE DATA 81:2.9,1.31:5,8:1,81:2,8,1:81,21,85,3,81,3, 72,3, 81,6, 96,3:81,9,8,1,81; 

2,4,1,81.21,85: 3:81,32, 72:3 
7536 DATA 31.6.1898, 3,96,59,8.1:96,2.0.,1,96,21.121:3.199:.3, 36,3,85,6,81,3,85, et 
‚A 
7548 DATA 68,1:9,1:68.1:8,1.68,1.8,1,68,2,72.2,81:1:8,1.81,8 ee 4,102.,8.68.2, 725 
7.,.81:2,72,7,8,.1:72:4:.189.7.8,1 
=; DATA 1938,1:8,1:188,1.8,1,108,2.102,8,658.6. 72,2,81,4, 72,4; ‚68, 4,81.4, 72.16, -1 


769 DATA 69.3.53:3:47:6,60.3:72,3:90:1.72,6:60,3,33,3,47,3,69,9,533:3,68, 3,53, 3:6 
A.2,53:3:.68,3,593, 3,60, 3:47:6 
7578 DATA 68.3: 72,6:31:6:9,1,81,3,72,6,8,6,-1,0 
rsaa DATA 58.3.57,3:58,3,68,3,85,3:68,3,102,6 
7585 DATA 56,3, u air; 3.68,3,85, 3.68,9, 102,6,50. 3.45:3:42,3,58,3,45,3,580,3,45.3 
‚57,3,54.3,57,3.599:3,698,3,985,3 

7534 "DATA 68.3,58,6.-1,0 

read DATA 68,4.53.4,58,4:47,4,8,16:47,1,9,1,47,1,8,1,47,2,93, 2,60, 2,64,2,533,8,68 
»8:.9,4,658,1,9,1,69,2.53.2.68,1,8,1 

eas DATA 64:2:72:1,8:1:72:8,81,8:8,3,91,3,8,1,91,4:96,4,0,198,91,4:123,4,121.4:8 
»4,31:4.128,4,121,4,0,4,91,4 

reiA DATA 128.4,121:4,8,4,-1,0 

FE2H DATA 53:6: 72,3:91.3, 72:3: 108.6:53:6,72,3:91:3,72,3,108,6,60.6,64,3,72,2.64, 
3:.96.6,64,3,72,3,81:3:1908,6 

7630 DATA 64:3: 72:3,81,3, 198,6, -1,8 

Fe4a DATA 91,2:.98:1:31:2:9:.1:91:2:9,1:91,9,108,6:91:6, 72,6,91,11:8:1:91:2,8,1.91; 
?,9.1:91,2,8,.1:91,3.81,6, 188,6 

7645 DATA 91,6.60.6, 72.12.96, 12,188, 12,91,12,96,12,9,6,-1,0 

76ER DATA 53:6,47:3.64,3,53,9,8,1,53,5,8,1,53,6,8,9, 48,6, 45, 3, 47,2,8,1,47,5:8,15 
47,5.8,1,47,6,8,9,29,6,31,6 

7665 DATA 49,9,0,2:47,3,64:3,33,6,47,3:64,3,53,6,47,3,64,3,53,6,47,3,64,3,33,6,0 
‚2,-1:08 

re6aB DATA 49,4.35.4:8,8, 
A.1.8,1,44,3,8,1,44,4,35,4,8,4 

7&3a DATA 48,4,35:.4,9,8,35.4:49,4,35,4:8,8,35,4,9,2,48.1:8,1.48,1,6,1,48,1,8.1,4 
4,2,35,.4,9,8,-1,8 

77aa DATA 47:1,8,1:47,1,8,1,47,1:8,1,47,1,8, 1,47, 2,644, 47:18,35,1:8,1,35,1,8,1. 
35,1.8,1,35,1:9,1,35,2,44,2.35,18 

771A DATA 47,1:8,1:47,1:8,1,47,1:8,1,47,1,8,1,47,2,64:4,47,18,47,4,35,1,8,1,35,6 
:47.:1.9,1.47,2,39:4,49,8:.53.4 

7715 DATA 47:6:9,2,-1,0 

Fr2A DATA 144,8.121:6, 144,2: 108,2: 96:8,0,6, 144,4,0,1.144.4,121,4,144,2.121,2,198 
‚2,121,2,144,6,6,4,144,9,121,6 

?73A DATA 144,2:188.2.96,8,0,6,144,4,8,1.144,4,1298,2,162,4,144,2,8,8.-1.8 

74a DATA 72:1:8:1:72.1:.8:1:72.2:60.2.64,2,72,1:8,1:72:.2,96,2, 72, 1: 4,1,72.1.8,1, 
72.2,64,2,81:1:49,1,81,1.8,1 

7758 DATA 81,2,64,2.53,1,8,1. 53,2,60,2,64,2,72,1,8,1,72,2,8,1,72,2,64,2,72,6,-1, 


> a 9 


35.4,49,4,35,2:9.7,49,2.8.1,49,2.0,2,48,1,0,1.48,1.8.1,4 
3 


A . 

7rEA DATA 81.2,45,3,47,1,53,1,68,1,64,1,68,2,8,1,68,6,81,2.40.3,45,1,47,1:52,1,6 
A,1,64:2.,9.,1.64,9:68:1: 72,3 

r7ra DATA 64,1,57:1,593> 1; 475 1,42,1,48, 1,35,2,33,6,68,5,68,1,93,1,59.1,45. 1,48, 1; 
37,1,33:2,31,6:-1.8 

7raa DATA 53,5,57,1,53:1:47,1,45,1:8,.1,45,1,8:.2,85,2,91,2,188,5;114,1,188,1,96,1 
»31,1:8.1:.91,1,9,2,85,2,91,2 
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734 DATA 45,5:47,1,45:1:48,1.35,1,9,1.35,1.9:2,85,2,91,2,91,5,96,1,91,1,81,1,72 
»1,4.1:.72,1,8,2,85,2,31,2,-1,0 

7833 REM KAPUTT-MELODIE 

aaa DATA 47,28,59.38,.47,180.0,1.47.30.60, 39,59, 30,47,60,50,30,47,88 

7349 REM SPEZIAL MELODIE i 

7350 DATA 144,121.91,8,30,128,198,81.0.69. 121.96. 72,9,320,128,198,91.:9,60,.126,108 
:81:9,29,136.193,0.0,1 

7351 DATA 136,168, 81,8, 38,96, 72,69,8,60, 76.64.9,8,15, 198. 64,9,8, 15, 96,8.90,0,20.6 
4.,4,0.4,15, 198, 96,64,0,360 

7352 DATA 144,128,96,0,68, 153, 128, 96,9,39, 91, 72.9,8,89,91,9,09,8,1.,91,72,9,9,29,0 
:72.53,9,1,91, 72,53. 45,30 

aa In 98. 72,60, 47,30, 198,91.72,53,30, 121,96, 72.60, 30,96,76,64,0, 30, 108,76,64 
ia DATA 121.96.72.9,19.121:9,0,0,1,121,96,72,90,39,121,96,72,8,38, 121,96, 72,9,3 


Ssaaß REM TEXT 

819 GRAPHICS 1+16:SETCOLOR 4,9,9:SETCOLOR 8,8, 11:SETCOLOR 1,8,4:SETCOLOR 2.1.12 
:SETCOLÖR 3,14,8 

sA1l5 GOSUB 1708 

sa2a 7 #5;" CCC & TI E TIIE AA Ss 
ST L LBECAFAS ni Een i 

Baar Ha" E EEARA S TLEEEC AR BEE CC AA SS TTLL EEE" 
saga 7 #6; " of confusion":? #6:7 #6:7 #65 

5358 : #6:7 #6; " R ET_OF YOGIBAERSOFT 


2 Pr 3 
Sara * #6; "DASOFT EOOPERATION" 
34aR RETURN 
35688 REM TEXT2 
8501 FOR I=8 T0D 3:SQUND 1,9,8,9:NEXT I 
3505 GRAPHICS 2+16:SETCOLOR 8,8,12:SETCOLOR 1,8,3:SETCOLOR 2,12,12:SETCOLOR 3,8, 
A 


aSsas GOSUB 17aa 
8510 7 #6:7 #6: "SAMMELN SIE MINDES- TENS 15 SCHAETZE UND DURCHRUEREN SIE DEN 


LFTZTEN RAUM." : 

3570 7 #6; "wehren sie sich ihren FEINDEN GEGENLUEBER! ":FOR R=1 TOD 268: 
NEXT R ee ee 

8538 POSITION 8,9:7 #6; "SCHWIERIGKEIT MIT":POSITION 9,18:7 #6; "SELECT : ";GESCHW 


a54A POSITION 8,11:7 #65 "START DRUECKENT I I" 
#545 POKE 53279,8 


8554 IF PEEK«532795=5 THEN GESCHU=SGESCHUFL:GOSUB 8398: G0T0 85308 

ass POKE 77,8:1F PEEK(53279)%>6 THEN 8558 

3578 RETURN 

39a FÜR R=1 TO 15:SOUND @,R+29,19,15-R:NEXT R 

s91A IF GESCHU=21 THEN GESCHU=1 

3922 RETURN 

Sand REM SPEZIAL MONSTER 

Sala IF MOWE>116 AND MÜVE<121 THEN SOUND 1. MOVYE-59,19,8:S0UND 2, MOYELS-SAA, 19,12 
sa15 IF MOYE<128 THEN SOUND 1,9.9,8:S50UND 2,9,89,8:RETURN 

sais IF MOVE=121 THEN SOUND 1,9,9,8:SOUND 2,9,0,0 

82A POSITION WR,WMY:T HE" URR=D: UYR=O 

3934 WAR=UAR+ #348 3: WAR=SUAR-C HUND: UYREUTR+C 73V 3: UYRSUYR-C VUN) 

Sa4a LOCATE WR+UHR, Mr+UTR,Z 

IF AR=186 THEN POSITION WR,WMY:T RES" "3 UR=UR+UKR : UY=U+UYR POSITION WX,WY : 
’ El He 

A TERIIER THEN FOSITION WX,WVY:? #63 SCHS$ 5 : UX=SUIK+UKR : WY=UY+UNR: POSITION US, WHY 
Br: zn 7 

Sara IF AR=32 THEN FOSITION UX,UY:T7 #65" "3 URSURH+HUKR : MUY=UY+HTR POSITION MX. UV: 7 
KAS"C"z 

saaa Ar=z 

3435 IF UA=K AND WY=7 THEH ROüM=INT“ RHDK B>K14+1 3: Y=0:G0T0 248 

34934 RETUFN - 

35AA REM RANGLISTE. - 

351 FÜR I=A TO 3:SOUHC 1.9,8.8:HNEXT I 

ss2A GRAPHICS 1+16:G0OSUB 179A:SETCOLOR 4,8,8:SETCOLOR 1:12:6:SETEOLOR 2.3:59:SETG 
nor A.12,6:IF P=A THEN 14A - 
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OEL GEREGELTEN 


574 IF P>P3 THEN 9628 

540 IF P£P3 AND F>=F2 THEN P3=F: NAls="_—_——— " : RANGS=HS 

3=5@ IF P<PZ AND F>=Pi THEN F3=F2:F2=P: NAME=NAS : NAS="——" : FANGS=RANS : RANS=KS 
3564 IF F<Pi THEN P3=P2:F2=P1:Pi=P:NAMS=HAS : NAS=NS : NE=" —" : RANGS=RANS : RANS= 


RAS :EASSHS$ 

Sr2A POSITION 5:1:7 #65 "RANGLISTE" :POSITIOH 5:2:7 #6; "nn - n 

2624 -PISITION 1. 6:7 et. ":N$:FOSITIOH 13 we ? #6s'P: ";P1: ee ";ERS 

arda POSITION 1.11:7 #6; "2, "Na: FOSITION 13, 11:7 #6; "Pe" ;P2:? #4" "GRAHMS 

3550 FISITION 1:16:78 #6:"2, "NAME: PNSITIOH 13.16: :? #6; "P:";P3:7 #6" "RANGS 

36554 POKE 764,255 :OPEN #1:4,8, "K:":C=1 

5655 IF F>P3 THEN 9734 

Serra IF FP=Pi THEN Ess 

S3E2A IF FP=P2 THEN B=s11 

“ea IF P=P3 THEM B= 16 = 

36535 FOSITION 3,21:7 #5; "7 INITIALIEN" POSITION 5,23:7 #6: "EINGEBEN" 

S?aA GET #1.K:POSITIMH 44,B:7 36 CHRSCK 3: GESCH,CISCHRSCK 3: FEtHT 

718 IF C£5& THEN ?rac i 

S372A CLOSE #1 

s72A IF B=6 THEN NE=5Es 

=74A IF B=11 THEN NHA&=SGES 

S37SsA IF B=15 THEN ee. GE$ 

734 POSITION 2,21:7 #6; "START  DRUECKENH 

aaa PÜKE 53273,0: POKE =32794,8:1IF PEEKC5S3273 >86 THEH FOKE 77.8: GoTo 35a 

2314 GOTN rd 

3333 REM TITEL 

1AaRaa FÜR I=sA TO 3:S0UNDb 1.9.,9,A:NEXT I 

ı1Aaaa1 FOR I=sh TO 19:FOR R=f 10 18:FOSITION I,RE:*? BE" "SOUND A.c T+R9#S.1A,15-R 

-2:HNEKT R:NE#T I:POEE 53279.7 

1asa2 FOR I=d TO 3:SOUND 1,8.,0,8:NEXT I 

18514 POSITION 9.0:7 BE; "Js dd 

ME Be N ee Ja 3 

1saza 7 Ha" J III ET BEN ZEIF FT 
IERER] Mn J.ü RR 

1ma3A 7 #65" dd K u 

en: POSITION 4.18:7 #6; "OPTION SELECT START, 3";:BRESTORE 728 
AHHE= 

1AA4a et un I=1 TO 268:HEXT 1:GOSUB 3589: POSITION 1,5:7 #6; MOHS: POSITION 18 

‚3:7 #6:5[C 

14534 GOSUB 3584: POSITION 13:3:7 #5: MONS:POSITION 16:8:7 #6; SCH$ 

1aa5a GOSUB 3588: POSITION 16,4:7 #65; MONS: POSITION 8,8: 7 #6; SCHS:GOSUB 3569: POS1IT 

InN 2,1:7 #5: MÜHNS 

1aA?a PNSITIOH 4,3:7 SRSLSCHE: GISUJB 3568: FOSITION 6,8:7 #65; MOHNS 

1Aaaaa POSITION 2.11:7 HE; 48 

1a1laa IF PEEK«L 53279 )=3 THEN SQOLND 9,9,0,0:FS=">2":G0T0 148 

1a11a IF PEEK<S53273)=65 THEN SOUND 9, 4,8,8:SCHL=8:G0T0: 225 

1128 IF FEEK«53272)=5 THEN 9508 

ı1A134 READ TON,ZEIT:IF TON=-1 THEN RESTORE 7298:60T0 19129 

18144 IF TON=-3 THEN SOUND 8,9,9,8:G60T0 19230 

1A15a FÜR R=1 TO ZEIT:SOLND 9. TON. 1A. 1A:NEXT R:GosuB 11999: POSITIOH 3,6 E=-FRHNE»15 

FE ae TE 

18164 FAHNE=FAHNE+L: IF FAHNE>?T THEH FAHNE=??F 

1m23A GOTO 1A1AA 

11aaA IF F$="?7" THEN 11166 

11A1lG A=INTCRNDCBD+4 I: IF-A=3 THEN Fs="T" 

11@24 FÜSITION 3,5-FAHNE/I1S.4:7 #6: F$:RETURH 

111964 A=INTCRNDEAIK4 I: IF A=3 THEN Fs="," 

11118 POSITION 9.5-FÄHNEr1S.4:7 #55 F$: RETURN 

12AAA REM MÜHSTER KAPUTT 

12418 Y=9:L=8: POSITION %,Y7:7 #6; "WW" 

12428 POSITION MA.MY:T #6;5".":FOR N=138 TO 258 STEF 39:SOUND 1,N,19.19:SnUND 1.# 

‚A.A:NEKT H:L=L+1 

17434 FOSITION MA.MY:TOHES": "FOR H=258 TON 18 STEP -68: SOUND 1, ABSCH-L#28 ), 16,18 

: SOUND 1:9.9.8:NEXT N:L=L+1 

1204A IF L<11 THEN 12824 

12450 FOR R=15 TO A STEF -1:SETCOLOR 8, ENDE >k1d+1,R: SOUND 9, R+38, 18, R: SOUND 1,R 

+2AN.S:R 

12064 NEXT R:POSITION M&.MY:? #65;" ":SETCOLOR 8:.C0L.6:RETURN 
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SENSO 


DRAGON 32/64 


Das Farbenspiel für schnelle Denker 


Nach Aufruf des Programms füllt sich 
der Bildschirm mit dem Titelbild, un- 
terstützt von Soundeffekten. Jetzt kann 
eine Anleitung abgerufen werden ... 


Nach Drücken von „J“ oder „N“ wird 
zuerst nach der Art des Fernsehers ge- 
fragt. Bei Schwarzweiß-TV wird in das 
farbige Feld die Farbe als Schriftzug 
eingeblendet. 


Danach kann die Spielstärke gewählt 
werden. Die Zahl zwischen I und 3 
wird in Zeile 250 als Pause zwischen 
den Farbvorgaben benutzt. 


1 REM SENSO DRAGON 32 


3 REM <C) 85.1984 
4 REM 


1A DIM MSC4B)_ 

2A DIM FS<(48) 

38 LLS8 

45 GOSUB 1886 ’TITELBILD 

33 REM ZIEHEN 
FÜR I=1 TO 48 
A=RND« 4) 
FS£ I )=A+2 
TH=A"2418 
MSC I3=TH 
NEXTI 
vz=1 
REM START 

A Z=1 

GOSUJB 1448 
FOR T=1 T0 2 
ELSCFSCT 9: GOSUB140B8 


SDUND MSCT),2 
FOR PB=1 TO 588 
NEXT PB 
NEXT T 
U=Z 
GOTO 488 EINGABE 
REM EINGABE 
CLS8 
Fu=8 : Ch= 
GOSUB 1908 
FOR AS=1 TO U 
TA$=INKEYS: 
IF TAg="1" 
IF TAs="2" 
IF Tag="3" 
IF TAs="4" 
IF TAS="L" 
saa IF TA$="E" THEN 
51a IF TAs<>"1L" AND 
THEN 448 


’TEXT START 


IF TyY=1 THEN B=FS( T >): G0SUB2838 


’TEXT EINGABE 


IF TAs="" THEN 448 
CH=1:G0T0 528 
CuH=2:G0OTN 528 
CuH=3:G0T0 528 
CH=4:G0T0 528 
AS=J+1:FA=2:G0T0 588 
AS=U+1:FA=3:G0T0 588 
TAS<>"2" AND TAS<>"3" AND TASl>"4" AND TAS<>"L" AND TAS<>"E" 


Jetzt werden die Zufallszahlen in die 40 
Felder eingelesen. Danach spielt der 
Computer die erste Farbe und den da- 
zugehörigen Ton. 

Der Spieler muß die richtige Farbe 
durch Drücken der Tasten 1-4 nach- 
spielen. 

Jetzt wird die Vorgabeschleife um 1 
erhöht und zwei Töne gespielt. So geht 
es fort bis max. 40 Töne. Bei falscher 
Eingabe erfolgt Ende der Spielrunde. Es 
werden richtige und falsche Tasten an- 
gezeigt und bis zu welchem Ton man 
gekommen ist. Vor der Eingabe der 
eigenen Töne kann durch Betätigen von 


2 REM BY H. JUERGEN VY.D.HEIDE 


5 REM ERERRRRRRRRRRKKKKKICKK 


„L“ die letzte Computerfolge beliebig 
oft wiederholt werden. Mit „E“ ist ein 
Ende des Spiels möglich. 

Für Änderung der zu betätigenden Ta- 
sten bei der Melodie-Wiederholung 
müssen in den Zeilen 440-480 und 
1900-1930 die Ziffern 1-4 durch ent- 
sprechende andere Werte ersetzt wer- 
den. 

Sollen Tasten benutzt werden, die nur 
durch den CHRS benutzt werden kön- 
nen, muß dieser Code dort abgefragt 
werden. 

Der Verlaufdes Programms ist aus dem 
Flußplan ersichtlich. 
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FuU=CH+2:CLSCFW) 
SOUNDE CH*2K18 3,2 
IF FU=FSCAS> THEN FA=:6070575 

54 CLSA 

ER FA=1:FF=AS 
AS=lj+1 
IF Ty=1 THEN B=FW:G0SLUB2838 
NEXT AS 
IF U>=49 THEN GOTO 2598 
IF FA=1 THEN GOTO 648 
IF Fh=2 THEN GOTO 218 
IF FA=3 THEN GOTD 738 
FOR PC=1 TO 2A@:NEXT PC 
CLS 
2=2+1 
FORFPA=1 TO 30@:NEXT PA: YZ=VZ+1:G0T0218 
FA=n 
PRINTB128, "FEHLER BEI DER ";FF3".EINGABE I" 
SOUND 19,1 
PRINT®192, "RICHTIG WAR "FSÄFF )-2 
PRINTB224, "SIE TIPPTEN "CH 
PRINTB2S6, "SIE KAMEN BIS ZUM "323", TON I" 
PRINTB288, "NEUES SPIEL ?" 
PRINTB3S2,"£1> ,  <Ny" 
TB$=INKEYS: IF TBS="" THEN 699 
IF TB$="N" THEN 738 
IF TB$="l" THEN CLSA:GOSUB17OR:GOTO 188 
IF TBSC>"N" AND TBS<>"J" THEN 698 
CLs 

A PRINTB99,"ICH BEDANKE MICH FUER IHR"; 

PRINTB138, "ENGAGEMENT ur 
N 
REM TITELBILD 
CLS1 
RESTORE 
P=- 
FOR M=1 TO 224 


THEN B=143: GOT01204 

THEN B=132:G0T01299 

THEN B=166 ::GOT01289 

THEN E=246 :G0T01298 

THEN E=193: GOTN12aA 

5 THEN B=214:G0T01298 
IF r<& OR A>5 THEN B=142:G0OT0120%@ 
PRINT@P. CHRECB I; 
SOUND P+18,1 
NEXT M 
GOSLUB20BB 
PRINTR329, "DRAGON 32764" ; 
A PRINTR363. "MIKROSOFT" ; 
FRINTR334.,"(CC) BY H. JUERGEN YAN DER HEIDE" ; 
PRINT®424,, "5686 WUPPERTAL 2"; 
PRINT®488, "ANLEITUNG: <J>,<N> 3784)"; 
TC$=INKEY$: IF TC$="" THEN 1390 
IF TC$="J" THEN GOSUB2708 : GOSUB1598 : RETURN 
IF TC$="N" THEN GOSUB2788 : GOSUB1708: RETURN 
IF TC&<>"J" AND TC$<>"N" THEN 1308 
REM TEXT START 
PRINT®283, "ICH SPIELE IHNEN EINE MELODIEN- FOLGE VOR,WOBEI FARBE UND TON 
ZUSAMMENHAENGEN. " 

PRINT®384, "BLAU =SEHR TIEF=1,ROT =TIEF=2"; 
PRINTR416, "WEISS=MITTEL  =3, TUERKIS=HOCH=4" ; 
PRINTR459, "SIE SPIELEN DIE MELODIE NACH" ; 
RETURN 
REM ANLEITUNG 
FOR L=256 TOD 5198 
PRINTRL. CHRSC 1439; 
NEXT L 
POKE1535, 143 
PRINTB238,"S EN S DO - ANLEITUNG"; 
PRINTR2S7,"ES WIRD IHNEN EINE MELODIE Aus"; 
PRINTR2S1, "MAX.4& TOENEN YVORGESPIELT."; 


| nn nn nn m nn nn nm 
| en nn nn nn nn 
7 

en nn nn nn nn nn m nn nn 
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FRINTR32A, "ES GIBT 4 TONHDEHEN DIE JE EINER"; 
PRINTR3S3, "FARBE ENTSPRECHEN." ; 

A PRINTP324. "TIEF>HÜCH=BLAU, ROT: WEISS. TUERKIS" ; 
FRINTR419. "SIE SOLLEN SIE NACHSPIELEN” ; 
PRINTR4SE, "weiter > TASTE <"; 
TD$S=INKEY$: IF Tb$="" THEN 1618 

2A GOSUB 176 
RETURN 
REM SPIELSTAERKE 
FOR L=256 TN 518 
PRINT@L., CHRS( 1439; 
NEXT L 
POKE1535, 143 

30 S5=8 

A PRINTB292,’SPIELSTRERKE"; 
PRINTR354."<3> = LANGE PAUSE= LEICHT"; 
FRINTR338,"<2> = MITTLERE PAUSE= NORMAL” ; 
PRINTR413,"<1> = KURZE PAUSE= SCHWER"; 

A SS$=INKEY$: IF S5$="" THEN 1780 
IF SS$="1" THEN $S$=1:GOT01839 
IF SS$="2" THEN 5S=2:GOTN1838 

A IF 55$="3" THEN SS=3:GOT01834 
IF SS$<{>"1" AND SS$<>"2”" AND SS$<>"3" THEN 1788 
PRINTR498, "bitte warten"; 

A RETURN 
REM TEXT SPIEL 
PRINTR294 ,"<1>=BLAU =SEHR TIEF"; 
PRINTR326,"<2>=R0OT =TIEF s 
PRINTR353, "<3>=WEISS=MITTEL 
PRINTR39A, "<4>=TUERKIS=HOCH 
PRINTR422, "<E>=ENDE 
A PRINTR454, "<L>=LETZTE FOLGE 
PRINTR482, "spielen sie die nelödie nach”; 
RETURN 
REM UNTERSTREICHEN 
P0=254 :00=127 
FOR U1=1 TO 4 
FOR U2=1 TO 7 
PRINTRE PO+1+U2 3. CHRSCCO+U2%16 9; 

A HEXT U2 

A4S5 PO=PI+7 
?asa NEXT I 

A RETURN 
REM GRATULATION 
CLS5A 
PRINTR192. "HERZLICHEN GLUECKWUNSCH I 11"; 
A PRINTR238, "SIE HABEN ALLE 4A TOENE RICHTIG"; 
A PRINTP329, "UIEDERGESPIELT 1 

> FRINTR448, "neues sp iel=/J>,ende=Z{E>"; 
3A PRINTRISA,VELKLEKIHEHHHHKKEHHLHHELH" ; 
256EA TF$=INKEYS:IF TF$="" THEN 2560 
A IF TF$="" THEN CLSR:GOSUB17AR:GOTOD1AA 
Sea IF TF$="E" THEN CLS:6G0T07238 
A IF TF&<>" "AND TF${>"E" THEN 2578 
S REM LOLOUR/SCHUARZ+UEISS 


DRAGON 32 HEIMCOMPUTER zum SENSATIONELLEN PREIS! 


Mn — in einwandfreiem Zustand, fast wie neu — 
Testgerät gebraucht voll getestet und mit & Monaten Garantie 
— solange Vorrat reicht — 32K RAM, Profi-Tastatur, Microsoft Farb-BASIC, deutsches 


Handbuch usw. 
Mit Schaltplänen und technischen Informationen. 


Einschl. Editor/Assembler für Maschinensprache 
DM 1 39 50 sowie einem englischen Fachbuch. 
? hi Bei Vorauszahlung (Scheck oder Überweisung an Postgiro Nbg. 1405-855) 


portofreie Lieferung innerh. Deutschlands, bei Nachnahme zuzügl. Versandspe- 
sen. 


NORCOM as Badstraße 5 — 8500 Nürnberg 1 — Tel. 09 11/20 32 51 


- Fordern Sie unsere günstige Preisliste 3/85 für Software/Zuberhör an — 
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A FOR L=256 TO 518 
PRIHNTRL, CHRSC 1435; 
NEXT L 
POIKE1533,143 
A PRINTR2923. "SPIELEN SIE AUF EINEM"; 


DANN FF?" 
DANN £3>"; 


sa PRINTR322. "FARBFERNSEHER 
276A PRINTR254, "SCHWARZ/WEISS TV 
TE$S=INKEY$: IF TE$="" THEN 2778 
IF TE$="F" THEN Ty=9 
IF TE$="S" THEN TY=1 
IF TE$SZ>"F" AND TESLI"S" 
RETURN 
3 REM SCHUARZ/UEISS TY 
aA IF B=3 THEN PRINTR2R3. "BL A U"; :RETURN 
IF B=4 THEN PRINTB2A4,"R OD T"; :RETURN 
IF B=5 THEN PRINTR2B2."W E I 5 2"; :RETURN 


THEN 2774 


u N EDEN N 


; 
F 
4 


RETURN 
REM Mey = 
DATA 
DATA 
A DATA 
DATA 
DATA 
A DATA 
DATA 


- 


EOEBERR RT TN 


.- nn ne 
a 


MOM 
“su 90- 


» 


- 
= 


-SS- 92 


- 
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Ausgereifte Technologien und ständige 
Optimierung im Bereich der Elektronik 
sowie ein langjähriges, spezialisiertes 
Fertigungs-Know-how sind die Grund- 
lage für die hohe Leistungsfähigkeit der 
Star-Drucker, die allen Ansprüchen an 
Qualität und Zuverlässigkeit genügen. 
Die Tätigkeit der Entwicklungsabtei- 
lungen in Japan, den USA und in 
Deutschland gewährleisten bei stetig 
steigendem technischen Standard und 
immer größerem Bedienungskomfort 
die Befriedigung auch zukünftiger An- 
wenderbedürfnisse. 

Die breite Modellpalette für praktisch 
alle Einsätze im Mikrocomputer-Be- 
reich sowie ein hervorragendes Preis-/ 
Leistungs-Verhältnis sind die Grundla- 
ge für den schnellen Erfolg der Star- 
Drucker auf den wichtigsten Märkten 
weltweit. 

Star kann heute Nadel-, Thermo- und 
Typenraddrucker anbieten. Das Pro- 
duktspektrum reicht vom äußerst 
preisgünstigen Thermodrucker stx-80, 
der durch seine geräuschlose Arbeits- 
weise besonders für den Hobby-Bereich 
oder als btx-Drucker geeignet ist, bis 
zum Matrixdrucker SR 15 für höchste 
Anforderungen im professionellen Ein- 
satz. 

Durch eingebaute, zum Teil per Schal- 
ter wählbare sowie durch zusätzliche 
Interfaces sind Star-Drucker mit allen 
gängigen Mikrocomputern kompatibel, 
insbesondere mit IBM, Commodore 
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u ei 


ERRETTT 


A IF B=6 THEN PRINTRZAR."TUERK I S"::RETURN 


- 
.% 


und Apple. Jeder Star-Drucker wird 
mit einem deutschen Handbuch gelie- 
fert. 

Durch Maße, Gewicht und Preis steht 
der stx-80 am untersten Ende der Pro- 
duktskala. Seine Leistungsfähigkeit 
hebt ihn jedoch aus dem reinen Hobby- 
Bereich heraus. Insbesondere ist der 
stx-80 als Bildschirmtext-Drucker ge- 
eignet. Der Thermo-Druckkopf hat 
eine Lebensdauer von mindestens 20 
Millionen Zeichen. 


Der stx-80 druckt bidirektional und 
druckwegoptimiert 60 Zeichen pro Se- 
kunde. Weitere Eigenschaften sind: 


— Druckspeicher 1 Zeile 
— 80 (40) Zeichen pro Zeile 


— Blockgrafik und Einzelelementan- 
steuerung 


— ASCII-Zeichensatz (96 Zeichen) 
— 88 internationale Zeichen 
— Selbsttest 


HoMECoMPUTER FI 


N 


#2 HoMECoMPUTER 


x/ 
us’ (CE 


.. auf diese Art und 
Weise gute SOFT- 
WARE zu 
bekommen. 


Nutzen Sie doch einfach 
unseren preis- 
günstigen Katalog. 


Mehr darüber auf den 
Seiten 76 und 77. 
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BILLIGER 


wird auch Ihre Homecomputerzeitschrift 


wenn Sie sich für ein Jahresabonnement 
von 
HOMECOMPUTER, COMPUTRONIC 
und CPU als Kombination 
entscheiden. 


Für 
6 Hefte von HOMECOMPUTER, 
6 Hefte von COMPUTRONIC und 
12 Hefte von CPU 
zahlen Sie im Jahresabonnement 
statt 141,— DM nur 100,- DM. 
Sie sparen also sage und schreibe: 41,- DM. 


Bei Lieferung in das europäische Ausland beträgt 
das Jahresabonnement HOMECOMPUTER, COMPUTRONIC 
und CPU 150,- DM, nach Übersee 200,- DM 


Wir garantieren: 
%* Sie erhalten HOMECOMPUTER, COMPUTRONIC und CPU ab der nächsterreichbaren Ausgabe. 
% Lieferung erfolgt frei Haus inkl. Mehrwertsteuer. 
% Die Zustellgebühren sind im günstigen Abonnementpreis enthalten 
% Es entstehen Ihnen keine weiteren Kosten. 


Ausschneiden und einsenden an: 


Bestellgutschein 
Ja, ich möchte ins Computerleben einsteigen und bestelle deshalb: 
U Jahresabonnement Kombi: HC, Computronic und CPU (24 Hefte) 100,- DM 


U] Jahresabonnement HC und Computronic (12 Hefte) 55,- DM 
U] Jahresabonnement CPU (12 Hefte) 55,- DM 


Name/Vorname 


Straße, Nr. PLZ, Ort 


Ich wünsche folgende Zahlungsweise: 
U Bargeldlos durch Bankeinzug 


Bankleitzahl 


Verlagsunion 


Friedrich-Bergius-Straße 20 
Postfach 57 07 


6200 Wiesbaden 


Geldinstitut Konto-Nr. 
U gegen Rechnung 
Datum, Unterschrift 
Abonnements-Kündi ungen: 
6 Wochen vor Ablauf des Jahresabonnements. 


Außerdem kann ich diese Bestellung innerhalb von 10 Tagen beim Verlag widerrufen! 


| 
| 
| 
| 
| 
| 
| 
| 
| 
) 
| 
| Te ee 7 7 Ai TE ST Ve 
| 
| 
| 
| 
| 
| 
| 
| 
| 
] 
! Zur Wahrung der Frist genügt die rechtzeitige Absendung. 
] 
] 


Datum, Unterschrift 
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10 FORI=828 TO 877: READD:CH=CH+D: POKEI,D:NEXTI 

20 IFCH<>5256THENPRINT*“?DATA ERROR*“:END 

30 SYS828 

60000 DATA 169,71,160,3,141,8,3,140,9,3,96,32,115,0,201,64,240, 
60001 DATA 6,32,121,0,76,231,167,32,115,0,32,158,183,138,72,32,253 
60002 DATA 174.32,158,183,104,168,24,32,240,255.32.164,170,76,174,167 
Das Maschinensprachprogramm finden Sie hier zur näheren Erklärung: 
10 i 

20 5 

30 ; PRINT AT 64 

40 ; BY EINSTEINSOFTWARE 

50 ; 11.11.1984 

60 ; WRITTEN BY 

70 ; D. MOELLER 

80 ; 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 INIT 
200 

210 

220 

230 

240 TEST 
250 

260 

270 

280 

290 BEFEHL 
300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 


CURSOR=$B79E 
VEKTOR=$308 
INTER=$AT7AE 
BEF.ALT=$A7E7 
CHRGET=$73 
CHRGOT=CHRGET+6 
CHKCOM=$AEFD 
*=828 

LDA #<TEST 
LDY #>TEST 
STA VEKTOR 
STY VEKTOR+I 
RTS 

JSR CHRGET 
CMP #64 

BEQ BEFEHL 
JSR CHRGOT 
JMP BEF.ALT 
JSR CHRGET 
JSR CORSUR 
TXA 

PHA 

JSR CHKCOM 
JSR CURSOR 
PLA 

TAY 

GEE 

JSR PRINT 

JSR $AAA4 
JMP INTER 


; STARTADRESSE 


; BASIC-VEKTOR 
; UMBIEGEN 


; NAECHSTES ZEICHEN 
AUCH 

; PRUEFEN 

; FLAGS WIEDER- 

; HERSTELLEN 

; NAECHSTES ZEICHEN 


; SPALTE 


ZEILE 


; AUSDRUCK 
; ZUR INTERPRETERSCHLEI- 
FE 


| 
ı® 
| ® 


Zur Beschreibung der “PRINT 
AT“-Anweisung ist nun ein klei- 
nes Beispiel angegeben. 

Der Text “I WAS HERE“ soll in 
Zeile 18, Spalte 4 erscheinen, 
Tippen Sie also ein: 

$84,18“I WAS HERE“ 


$=*KLAMMERAFFE“ 

Die Syntax ist also $x,y“TEXT*“. 
Möchten Sie aber keinen be- 
stimmten Text an eine bestimm- 
te Stelle geprintet haben, tippen 
Sie einfach $x,y““. 

Auch die STRING-ANWEI- 


SUNG läßt sich mit diesem Pro- 
gramm verwirklichen: 

10 a$=*URGL*“ 

20 $83,3a$ 


Gestartet wird das Pro- 
gramm mit SYS 704! 


„.. wird auch weiterhin, 
trotz Ihrer zahlreichen 
Bestellungen, alle Aufträge in nur 


1 Woche erledigen. 


Bestellcoupon ausschneiden und einsenden an: 
Tronic-Verlag, Postfach 3444 Wehretal 1 


= oder einfach telef. bestellen: 0 56 51 / 4 06 43-4 06 93 


Bestellcoupon für Software-Service 


Alle aufgeführten Programme können als Diskette bzw. Kassette direkt beim Verlag bestellt werden. 
Die notwendigen Angaben für Ihre Bestellung entnehmen Sie bitte aus unseren Preislisten. 


Bitte liefern Sie mir: 
[] Kassette für 
[U] Diskette für 


zum Gesamtpreis von 


Die Zustellung erfolgt: gegen Nachnahme U 
+ Versandkosten 
innerhalb von 1 Woche an: 


Name/Vorname: 


PLZ/Ort: 


U] Anzahl 
Bestell-Nr. 


U] Anzahl 
Bestell-Nr. 


DM 


oder gegenVorkasse U 
bei Auslandslieferungen 


Straße. Nr.: 


Datum, Unterschrift 
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Wenn Sie in der Lage sind, auch andere an Ihren 
Phantasien teilhaben zu lassen, versuchen Sie es 
doch einfach mal mit selbsterstellten Programmen! 


Wir suchen ständig neue, 
phantastische Abenteuer, 
spannende und lustige 
Programme und 
natürlich auch 
Anwender- 
software. 


Wir brauchen von Ihnen: 


Ausführliche Spielbeschreibung 
Datenträger (Kassette oder Diskette) 
Komplettes Listing (nicht unbedingt erforderlich) 


